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

[elisp.git] / media-mplayer.el

diff --git a/media-mplayer.el b/media-mplayer.el
index dd953be..cdff4a0 100644 (file)
--- 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)))