emms-help
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[emms-help] ogginfo: read in UTF-8


From: Magnus Henoch
Subject: [emms-help] ogginfo: read in UTF-8
Date: Sun, 16 Jul 2006 23:07:42 +0200
User-agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (berkeley-unix)

ogginfo writes information in ASCII unless asked to do otherwise.
This patch to emms-info-ogginfo.el instructs it to print tags in
UTF-8 (the native encoding, by the way):

diff -c /home/magnus/emacs/emms/emms-info-ogginfo.el.orig 
/home/magnus/emacs/emms/emms-info-ogginfo.el
--- /home/magnus/emacs/emms/emms-info-ogginfo.el.orig   Sun Jul 16 22:46:04 2006
+++ /home/magnus/emacs/emms/emms-info-ogginfo.el        Sun Jul 16 23:04:37 2006
@@ -33,11 +33,6 @@
 program"
   :group 'emms-info)
 
-(defcustom emms-info-ogginfo-coding-system 'latin-1
-  "*Coding system used in the output of ogginfo."
-  :type 'coding-system
-  :group 'emms-info-ogginfo)
-
 (defcustom emms-info-ogginfo-program-name "ogginfo"
   "*The name/path of the ogginfo tag program."
   :type 'string
@@ -50,8 +45,12 @@
              (string-match "\\.[Oo][Gg][Gg]\\'" (emms-track-name track)))
 
     (with-temp-buffer
-      (call-process emms-info-ogginfo-program-name
-                    nil t nil (emms-track-name track))
+      (let ((coding-system-for-read 'utf-8)
+           (process-environment
+            (cons "CHARSET=utf-8"
+                  process-environment)))
+       (call-process emms-info-ogginfo-program-name
+                     nil t nil (emms-track-name track)))
 
       ;; play time, emms-info-ogg.el [U. Jensen]
       (goto-char (point-min))

Diff finished.  Sun Jul 16 23:04:56 2006
Magnus

reply via email to

[Prev in Thread] Current Thread [Next in Thread]