aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-lyrics.el
diff options
context:
space:
mode:
authorArnaud Fontaine <arnau@debian.org>2012-05-24 09:59:56 +0900
committerArnaud Fontaine <arnau@debian.org>2012-12-19 19:39:09 +0900
commit5b0d66139a740ebe42e45eadc908daed3e2f7736 (patch)
tree823329cf806a9ed32430e4c679181dcba74cfefa /lisp/emms-lyrics.el
parent8b313708a9bce6611ba0b5e74e6c08b1dead3842 (diff)
Support both XEmacs and Emacs to highlight playing lyrics.
* lisp/emms-compat.el: support highlighting for both XEmacs (highlight) and Emacs (hl-line). * lisp/emms-lyrics.el: use compatibility functions defined in emms-compat.el.
Diffstat (limited to 'lisp/emms-lyrics.el')
-rw-r--r--lisp/emms-lyrics.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emms-lyrics.el b/lisp/emms-lyrics.el
index d798bd1..6b28b22 100644
--- a/lisp/emms-lyrics.el
+++ b/lisp/emms-lyrics.el
@@ -42,12 +42,12 @@
;;; Code:
-(require 'hl-line)
(require 'emms)
(require 'emms-player-simple)
(require 'emms-source-file)
(require 'time-date)
(require 'emms-url)
+(require 'emms-compat)
;;; User Customization
@@ -314,7 +314,7 @@ FILE should be under the same directory as the music file, or under
(mapc (lambda (time-lyric) (insert (cdr time-lyric) "\n"))
emms-lyrics-alist)
(goto-char (point-min))
- (hl-line-mode 1)
+ (emms-activate-highlighting-mode)
(setq buffer-read-only t))
(defun emms-lyrics-start ()
@@ -470,7 +470,7 @@ display."
(when line
(goto-char (point-min))
(forward-line (1- line))
- (hl-line-highlight))))))
+ (emms-line-highlight))))))
(defun emms-lyrics-find-lyric (file)
"Return full path of found lrc FILE, or nil if not found.