aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2009-03-31 09:23:10 -0700
committerMichael Olson <mwolson@gnu.org>2009-03-31 09:23:10 -0700
commitf4dd5b038324bfef2da338eea70ea32e9947e0e2 (patch)
treecf1fcd267311a3d35a4c31413127cb6cb9f6db3f /lisp
parent4b2158e03e8c026760b00c5cc7c4cc6d742bea8f (diff)
emms-tag-editor: Turn all symbols to strings before completing read.
Otherwise ido-mode will choke on it.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-tag-editor.el25
1 files changed, 19 insertions, 6 deletions
diff --git a/lisp/emms-tag-editor.el b/lisp/emms-tag-editor.el
index 7f0da8c..3eba673 100644
--- a/lisp/emms-tag-editor.el
+++ b/lisp/emms-tag-editor.el
@@ -302,7 +302,10 @@ a selected region.
changes will only take effect on the tracks in the region."
(interactive
(list (emms-completing-read "Set tag: "
- emms-tag-editor-tags nil t)
+ (mapcar (lambda (arg)
+ (list (symbol-name (car arg))))
+ emms-tag-editor-tags)
+ nil t)
(read-from-minibuffer "To: ")))
(save-excursion
(save-restriction
@@ -323,7 +326,10 @@ If `transient-mark-mode' is on and the mark is active, the
changes will only take effect on the tracks in the region."
(interactive
(cons (emms-completing-read "Replace in tag: "
- emms-tag-editor-tags nil t)
+ (mapcar (lambda (arg)
+ (list (symbol-name (car arg))))
+ emms-tag-editor-tags)
+ nil t)
(let ((common (query-replace-read-args
(if (and transient-mark-mode mark-active)
"Query replace regexp in region"
@@ -365,12 +371,19 @@ changes will only take effect on the tracks in the region."
If `transient-mark-mode' is on and the mark is active, the
changes will only take effect on the tracks in the region."
(interactive
- (let* ((tag1 (intern (emms-completing-read "Tag 1: "
- emms-tag-editor-tags nil t)))
+ (let* ((tag1 (intern (emms-completing-read
+ "Tag 1: "
+ (mapcar (lambda (arg)
+ (list (symbol-name (car arg))))
+ emms-tag-editor-tags)
+ nil t)))
(tag2 (intern (emms-completing-read
"Tag 2: "
- (assq-delete-all tag1
- (copy-sequence emms-tag-editor-tags))
+ (mapcar (lambda (arg)
+ (list (symbol-name (car arg))))
+ (assq-delete-all
+ tag1
+ (copy-sequence emms-tag-editor-tags)))
nil t))))
(list tag1 tag2)))
(save-excursion