From 13525d2c4185d0bf2bad4f9518b8a355ec745f62 Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Fri, 8 Dec 2006 03:10:00 +0000 Subject: emms-info-mp3info: Make use of `emms-i18n-call-process-simple'. darcs-hash:20061208031029-e8fe6-fdb07b59286e2152d399670e2881a6648a17c887.gz --- emms-info-mp3info.el | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/emms-info-mp3info.el b/emms-info-mp3info.el index 137bcce..15c6207 100644 --- a/emms-info-mp3info.el +++ b/emms-info-mp3info.el @@ -79,7 +79,9 @@ This is a useful element for `emms-info-functions'." (string-match "\\.[Mm][Pp]3\\'" (emms-track-name track))) (with-temp-buffer (when (zerop - (apply 'call-process + (apply (if (fboundp 'emms-i18n-call-process-simple) + 'emms-i18n-call-process-simple + 'call-process) emms-info-mp3info-program-name nil t nil (emms-track-name track) @@ -88,13 +90,6 @@ This is a useful element for `emms-info-functions'." (while (looking-at "^\\([^=\n]+\\)=\\(.*\\)$") (let ((name (intern (match-string 1))) (value (match-string 2))) - (and (boundp 'emms-cache-file-coding-system) - (not (eq emms-info-mp3info-coding-system - emms-cache-file-coding-system)) - (setq value (decode-coding-string - (encode-coding-string - value emms-cache-file-coding-system) - emms-info-mp3info-coding-system))) (when (> (length value) 0) (emms-track-set track @@ -104,6 +99,5 @@ This is a useful element for `emms-info-functions'." value)))) (forward-line 1)))))) - (provide 'emms-info-mp3info) ;;; emms-info-mp3info.el ends here -- cgit v1.2.3