diff options
| author | Michael Olson <mwolson@gnu.org> | 2009-03-31 09:23:10 -0700 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2009-03-31 09:23:10 -0700 |
| commit | f4dd5b038324bfef2da338eea70ea32e9947e0e2 (patch) | |
| tree | cf1fcd267311a3d35a4c31413127cb6cb9f6db3f | |
| parent | 4b2158e03e8c026760b00c5cc7c4cc6d742bea8f (diff) | |
emms-tag-editor: Turn all symbols to strings before completing read.
Otherwise ido-mode will choke on it.
| -rw-r--r-- | lisp/emms-tag-editor.el | 25 |
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 |