From a17384af097c2c62d1a434cbee00ccbac72fd33a Mon Sep 17 00:00:00 2001 From: William Xu Date: Tue, 17 Jul 2007 08:25:00 +0000 Subject: emms-playlist-limit.el: (define-emms-playlist-limit) Fix prompt string bug. darcs-hash:20070717082536-cfa61-55775fe2860eff7122ef60b493ad62d614e113bb.gz --- emms-playlist-limit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/emms-playlist-limit.el b/emms-playlist-limit.el index d9246cd..95816a2 100644 --- a/emms-playlist-limit.el +++ b/emms-playlist-limit.el @@ -47,9 +47,11 @@ (emms-playlist-track-at) (quote ,attribute)) (emms-track-get (emms-playlist-selected-track) (quote ,attribute)))) + (attr-name ,(emms-replace-regexp-in-string + "info-" "" (symbol-name attribute))) (fmt (if curr - (format "Limit to artist (regexp = %s): " curr) - (format "Limit to artist (regexp): ")))) + (format "Limit to %s (regexp = %s): " attr-name curr) + (format "Limit to %s (regexp): " attr-name)))) (read-string fmt)))) (when (string= regexp "") (setq regexp (emms-track-get (emms-playlist-track-at) (quote ,attribute)))) -- cgit v1.2.3