diff options
| author | Michael Olson <mwolson@gnu.org> | 2007-03-02 15:21:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2007-03-02 15:21:00 +0000 |
| commit | 53cbbecf7d49adf53b639df13df099f446f8a1ac (patch) | |
| tree | 2a32fcd28f02e9e2e143abbd0d38d4682c7f2790 | |
| parent | 9b41cd71d5ad068c02ccbfaf41cac9a7fd5e4696 (diff) | |
emms-lyrics: Fix compiler warnings
darcs-hash:20070302152148-1bfb2-a126cf94fafb664291114af7e187626aedb7466d.gz
| -rw-r--r-- | emms-lyrics.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index 56dc0a6..32025d9 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -109,6 +109,12 @@ same as the music file) and this directory." ;;; User Interfaces +(defvar emms-lyrics-display-p t + "If non-nil, will diplay lyrics.") + +(defvar emms-lyrics-mode-line-string "" + "Current lyric.") + ;;;###autoload (defun emms-lyrics-enable () "Enable displaying emms lyrics." @@ -201,15 +207,12 @@ If we can't find it from local disk, then search it from internet." (setq url (concat "http://search.lyrics.astraweb.com/?word=" ;;"http://www.lyrics007.com/cgi-bin/s.cgi?q=" (replace-regexp-in-string " " "+" title))) - (w3m-browse-url url) + (browse-url url) (message "lyric file does not exist, search it from internet...done"))))) ;;; EMMS Lyrics -(defvar emms-lyrics-display-p t - "If non-nil, will diplay lyrics.") - (defvar emms-lyrics-alist nil "a list of the form: '((time0 . lyric0) (time1 . lyric1)...)). In short, at time-i, display lyric-i.") @@ -226,9 +229,6 @@ short, at time-i, display lyric-i.") (defvar emms-lyrics-elapsed-time 0 "How long time has emms lyric played.") -(defvar emms-lyrics-mode-line-string "" - "Current lyric.") - (defvar emms-lyrics-scroll-timers nil "Lyrics scroller timers.") |