aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2008-02-21 06:37:00 +0000
committerMichael Olson <mwolson@gnu.org>2008-02-21 06:37:00 +0000
commitc5281105e8b39e7f73404f6b22148845d9c78c9b (patch)
tree62238492335abfd17f79dd1920e6a19eee987616
parent9867a7128473f1df9b718571603028af9c59c135 (diff)
Fix compiler warnings about mapcar.
darcs-hash:20080221063736-1bfb2-413a3e0ba2ea79c693651e5b8e5d61c2a790fcd5.gz
-rw-r--r--emms-stream-info.el32
-rw-r--r--emms-tag-editor.el11
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)