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 /emms-stream-info.el | |
| parent | 9867a7128473f1df9b718571603028af9c59c135 (diff) | |
Fix compiler warnings about mapcar.
darcs-hash:20080221063736-1bfb2-413a3e0ba2ea79c693651e5b8e5d61c2a790fcd5.gz
Diffstat (limited to 'emms-stream-info.el')
| -rw-r--r-- | emms-stream-info.el | 32 |
1 files changed, 16 insertions, 16 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 |