From: Francois Fleuret Date: Fri, 2 Dec 2016 15:36:56 +0000 (+0100) Subject: Fixed an ugly bug when there are encoding problems with the ICE media infos. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddf333570e530f70377b80ebe82c3019cd8a8547;p=elisp.git Fixed an ugly bug when there are encoding problems with the ICE media infos. --- diff --git a/media-mplayer.el b/media-mplayer.el index ff1747e..46acbb3 100644 --- a/media-mplayer.el +++ b/media-mplayer.el @@ -94,8 +94,8 @@ load Emacs less. Nil means no timing." (let ((s (match-string 1 param))) (concat (if (string= s "") "" - ;; (encode-coding-string s 'latin-1) - s + (encode-coding-string s 'latin-1) + ;; s ) " | " (format-time-string "%a %b %d %H:%M:%S") @@ -110,10 +110,11 @@ load Emacs less. Nil means no timing." ) (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))) + (let ((coding-system-for-write 'raw-text-unix)) + (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))