diff options
| author | Yoni Rabkin <yoni@rabkins.net> | 2017-07-14 16:16:21 -0400 |
|---|---|---|
| committer | Yoni Rabkin <yoni@rabkins.net> | 2017-07-14 16:16:21 -0400 |
| commit | 5401b0df9b4a45fb9f01b7f4236f99b34c79595a (patch) | |
| tree | ecf5a37d4a06ca5a278b70d7a35c37ecae60a121 /lisp/emms-player-mpd.el | |
| parent | a4ec6697e45a006753bfd79c22f14524748df493 (diff) | |
Move from cl to cl-lib.
Patch by tumashu <tumashu@163.com>.
Diffstat (limited to 'lisp/emms-player-mpd.el')
| -rw-r--r-- | lisp/emms-player-mpd.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emms-player-mpd.el b/lisp/emms-player-mpd.el index fdc3394..191d072 100644 --- a/lisp/emms-player-mpd.el +++ b/lisp/emms-player-mpd.el @@ -103,6 +103,7 @@ ;; Adam Sjøgren implemented support for changing the volume. +(require 'cl-lib) (require 'emms-player-simple) (require 'emms-source-playlist) ; for emms-source-file-parse-playlist (require 'tq) @@ -150,10 +151,10 @@ or nil if we cannot figure it out." (let* ((b (match-end 0)) (e (string-match "Output plugins:$" out)) (plugs (split-string (substring out b e) "\n" t)) - (plugs (mapcan (lambda (x) - (and (string-match " +\\[.*\\] +\\(.+\\)$" x) - (split-string (match-string 1 x) nil t))) - plugs)) + (plugs (cl-mapcan (lambda (x) + (and (string-match " +\\[.*\\] +\\(.+\\)$" x) + (split-string (match-string 1 x) nil t))) + plugs)) (b (and (string-match "Protocols:$" out) (match-end 0))) (prots (and b (substring out (+ 2 b) -1))) (prots (split-string (or prots "") nil t))) |