[Top][All Lists]
[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
- [emms-help] ogginfo: read in UTF-8,
Magnus Henoch <=