diff options
| author | William Xu <william.xwl@gmail.com> | 2007-07-17 08:25:00 +0000 |
|---|---|---|
| committer | William Xu <william.xwl@gmail.com> | 2007-07-17 08:25:00 +0000 |
| commit | a17384af097c2c62d1a434cbee00ccbac72fd33a (patch) | |
| tree | e891cbd40c8791eb33d0db35b2022bdc55146617 | |
| parent | 11bc711f9727efbe6bddc6512b396de0314bd483 (diff) | |
emms-playlist-limit.el: (define-emms-playlist-limit) Fix prompt string bug.
darcs-hash:20070717082536-cfa61-55775fe2860eff7122ef60b493ad62d614e113bb.gz
| -rw-r--r-- | emms-playlist-limit.el | 6 |
1 files 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)))) |