From: Francois Fleuret <francois@fleuret.org>
Date: Tue, 10 Mar 2015 13:57:49 +0000 (+0100)
Subject: Try to deal properly with quotes in the stream's song names.
X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=commitdiff_plain;h=497efe7d92b929dbad57f8dcd434bea3a8c72c21

Try to deal properly with quotes in the stream's song names.
---

diff --git a/media-mplayer.el b/media-mplayer.el
index dd953be..cdff4a0 100644
--- a/media-mplayer.el
+++ b/media-mplayer.el
@@ -80,7 +80,7 @@ load Emacs less. Nil means no timing."
              ;; ----------------------------------------
 
              ("ICY Info:" .
-              (if (string-match "StreamTitle='\\([^']*\\)';" param)
+              (if (string-match "StreamTitle='\\([^;]*\\)';" param)
                   (setq media/mplayer/current-stream-song (match-string 1 param))
                 (message "ICY Info \"%s\"" param)))