From 3b044df7a4b8ccee82809e548692d89e901af8ef Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Mon, 20 Nov 2006 07:58:00 +0000 Subject: emms-info-mp3info.el: Replace `emms-iconv' with decode-coding-string and encode-coding-string. darcs-hash:20061120075851-e8fe6-1d71baea3e9f557b21be05f8798b7b91b1f35b9b.gz --- emms-info-mp3info.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/emms-info-mp3info.el b/emms-info-mp3info.el index d723ade..137bcce 100644 --- a/emms-info-mp3info.el +++ b/emms-info-mp3info.el @@ -91,9 +91,10 @@ This is a useful element for `emms-info-functions'." (and (boundp 'emms-cache-file-coding-system) (not (eq emms-info-mp3info-coding-system emms-cache-file-coding-system)) - (setq value (emms-iconv value - 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 @@ -103,15 +104,6 @@ This is a useful element for `emms-info-functions'." value)))) (forward-line 1)))))) -(defun emms-iconv (str from to) - "Convert STR from FROM coding to TO coding." - (and (symbolp from) (setq from (symbol-name from))) - (and (symbolp to) (setq to (symbol-name to))) - (car - (split-string - (shell-command-to-string - (concat "echo \"" str "\" | iconv -f " from " -t " to)) - "\n"))) (provide 'emms-info-mp3info) ;;; emms-info-mp3info.el ends here -- cgit v1.2.3