aboutsummaryrefslogtreecommitdiff
path: root/emms-lyrics.el
diff options
context:
space:
mode:
Diffstat (limited to 'emms-lyrics.el')
-rw-r--r--emms-lyrics.el8
1 files changed, 7 insertions, 1 deletions
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 ()