X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=media-mplayer.el;h=ff1747e3337097ec60f8a2a455db7e4c5f772276;hp=c0df300aae28f335db0a072c85507b75ba0317b4;hb=44da93db15b7b045e0513ab4cee0a0c8361d7ac9;hpb=fc2642e34fec0d82c0d8ce6d6bc9e6859fadac7e

diff --git a/media-mplayer.el b/media-mplayer.el
index c0df300..ff1747e 100644
--- a/media-mplayer.el
+++ b/media-mplayer.el
@@ -109,6 +109,12 @@ load Emacs less. Nil means no timing."
                       (message "ICY Info \"%s\"" param)
                       )
 
+                    (when media/mplayer/capture-dir
+                      (with-temp-buffer
+                        (insert
+                         (concat media/current-song-in-stream "\n"))
+                        (write-region nil nil (concat media/mplayer/capture-dir "/log") t)))
+
                     (if (and media/current-song-in-stream media/current-information)
                         (media/show-current-information))
                     )