From 5401b0df9b4a45fb9f01b7f4236f99b34c79595a Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Fri, 14 Jul 2017 16:16:21 -0400 Subject: Move from cl to cl-lib. Patch by tumashu . --- lisp/emms-player-mpd.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/emms-player-mpd.el') 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))) -- cgit v1.2.3