From ff4bd16b5db79f53d55637724afe413aa100e372 Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Mon, 3 Apr 2006 13:49:00 +0000 Subject: New variable: `emms-lyrics-coding-system'. It's the coding system used in the output of lyrics. (I sent this before, maybe some unexpected problem happened.) darcs-hash:20060403134922-e8fe6-5b1bb0825a3f5f6616024226d1d0c6015c3aa83c.gz --- emms-lyrics.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'emms-lyrics.el') diff --git a/emms-lyrics.el b/emms-lyrics.el index 645b8cc..5c07ad2 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -93,6 +93,11 @@ for lyrics in current directory and this directory." :type 'string :group 'emms-lyrics) +(defcustom emms-lyrics-coding-system 'latin-1 + "Coding system used in the output of lyrics." + :type 'coding-system + :group 'emms-lyrics) + (defcustom emms-lyrics-mode-hook nil "Normal hook run after entering Emms Lyric mode." :type 'hook @@ -135,6 +140,7 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (setq file (emms-lyrics-find-lyric file))) (when (and file (not (string= file "")) (file-exists-p file)) (with-temp-buffer + (let ((coding-system-for-read emms-lyrics-coding-system)) (insert-file-contents file) (while (search-forward-regexp "\\[[0-9:.]+\\].*" nil t) (let ((lyric-string (match-string 0)) @@ -157,7 +163,7 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (substring lyric-string (length time-string))) (setq emms-lyrics-alist (append emms-lyrics-alist `((,time ,lyric)))) - (setq time 0))))) + (setq time 0)))))) t))) (defun emms-lyrics-start () -- cgit v1.2.3