From 170f12730093f8a42981c926ff62c5e2df93ffac Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Fri, 25 Aug 2006 20:32:00 +0000
Subject: emms-player-mpd: Use regexp-opt instead of mapconcat.

darcs-hash:20060825203258-1bfb2-8be4ed4794be6581c6a1b65dfbbfdc991a826225.gz
---
 emms-player-mpd.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index 603a0f8..e014aa0 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -146,8 +146,7 @@ or nil if we cannot figure it out."
     (when (and (stringp supported)
                (not (string= supported "")))
       (concat "\\`http://\\|\\.\\(m3u\\|pls\\|"
-              (mapconcat 'identity (delq nil (split-string supported))
-                         "\\|")
+              (regexp-opt (delq nil (split-string supported)))
               "\\)\\'"))))
 
 (defcustom emms-player-mpd-supported-regexp
-- 
cgit v1.2.3