diff options
| author | Michael Olson <mwolson@gnu.org> | 2008-02-21 06:37:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2008-02-21 06:37:00 +0000 |
| commit | c5281105e8b39e7f73404f6b22148845d9c78c9b (patch) | |
| tree | 62238492335abfd17f79dd1920e6a19eee987616 | |
| parent | 9867a7128473f1df9b718571603028af9c59c135 (diff) | |
Fix compiler warnings about mapcar.
darcs-hash:20080221063736-1bfb2-413a3e0ba2ea79c693651e5b8e5d61c2a790fcd5.gz
| -rw-r--r-- | emms-stream-info.el | 32 | ||||
| -rw-r--r-- | 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) |