Fix compiler warnings about mapcar.

darcs-hash:20080221063736-1bfb2-413a3e0ba2ea79c693651e5b8e5d61c2a790fcd5.gz

1 files changed, 7 insertions, 4 deletions

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index e97b246..50c22eb 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -422,10 +422,13 @@ Available tags are:
           (setq filename (emms-track-name track))
           (or fullname (setq filename (file-name-nondirectory filename)))
           (when (string-match (car pattern) filename)
-            (mapcar (lambda (pair)
-                      (emms-track-set track (car (rassoc (char-to-string (car pair)) emms-tag-editor-tags))
-                                      (match-string (cdr pair) filename)))
-                    (cdr pattern)))
+            (mapc (lambda (pair)
+                    (emms-track-set
+                     track
+                     (car (rassoc (char-to-string (car pair))
+                                  emms-tag-editor-tags))
+                     (match-string (cdr pair) filename)))
+                  (cdr pattern)))
           (emms-tag-editor-insert-track track))))))
 
 (defun emms-tag-editor-compile-pattern (pattern)