From c5281105e8b39e7f73404f6b22148845d9c78c9b Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Thu, 21 Feb 2008 06:37:00 +0000
Subject: Fix compiler warnings about mapcar.

darcs-hash:20080221063736-1bfb2-413a3e0ba2ea79c693651e5b8e5d61c2a790fcd5.gz
---
 emms-stream-info.el | 32 ++++++++++++++++----------------
 emms-tag-editor.el  | 11 +++++++----
 2 files changed, 23 insertions(+), 20 deletions(-)

diff --git a/emms-stream-info.el b/emms-stream-info.el
index 5b293d8..324a247 100644
--- a/emms-stream-info.el
+++ b/emms-stream-info.el
@@ -440,22 +440,22 @@ Argument STR Quanta of data."
 
     ;; Look for headers
     (unless emms-stream-info-header-flag
-      (mapcar (lambda (term)
-		(goto-char (point-min))
-		(if (re-search-forward 
-		     (concat (regexp-opt 
-			      (list "icy-" "ice-"))
-			     term
-			     ":\\(" 
-			     emms-stream-info-stream-header-regexp
-			     "\\)")
-		     (point-max) t)
-		    (progn
-		      (add-to-list 'emms-stream-info-found 
-				   (cons term 
-					 (emms-match-string-no-properties 1)))
-		      (setq emms-stream-info-header-flag t))))
-	      emms-stream-info-vocab))
+      (mapc (lambda (term)
+	      (goto-char (point-min))
+	      (if (re-search-forward
+		   (concat (regexp-opt
+			    (list "icy-" "ice-"))
+			   term
+			   ":\\("
+			   emms-stream-info-stream-header-regexp
+			   "\\)")
+		   (point-max) t)
+		  (progn
+		    (add-to-list 'emms-stream-info-found
+				 (cons term
+				       (emms-match-string-no-properties 1)))
+		    (setq emms-stream-info-header-flag t))))
+	    emms-stream-info-vocab))
 
     ;; Look for title
     (unless emms-stream-info-title-flag
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)
-- 
cgit v1.2.3