diff options
| author | Michael Olson <mwolson@gnu.org> | 2007-03-02 06:58:00 +0000 |
|---|---|---|
| committer | Michael Olson <mwolson@gnu.org> | 2007-03-02 06:58:00 +0000 |
| commit | bc0a635e4f13e4b8e431cfd0cb21074fcb10e2b9 (patch) | |
| tree | 953d34ee1e12ff0be1dece3738247c48567ee6d2 | |
| parent | c1fe22499774d5ddd1ff1d13a3c7ccf68ddb1090 (diff) | |
emms-lyrics: Fix several compiler warnings
darcs-hash:20070302065810-1bfb2-6dcbd9b2f3cd32d38f4237b8f21fb8fa0dfa5f10.gz
| -rw-r--r-- | emms-lyrics.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index 50c4aae..795ca26 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -329,9 +329,10 @@ job." (let ((time (- (caar lyrics-alist) emms-lyrics-elapsed-time)) (lyric (cdar lyrics-alist)) (next-time (and (cdr lyrics-alist) - (- (caadr lyrics-alist) emms-lyrics-elapsed-time))) + (- (car (cadr lyrics-alist)) + emms-lyrics-elapsed-time))) (next-lyric (and (cdr lyrics-alist) - (cdadr lyrics-alist)))) + (cdr (cadr lyrics-alist))))) (setq emms-lyrics-timers (append emms-lyrics-timers (list @@ -443,7 +444,7 @@ NEXT-LYRIC." 'emms-lyrics-display (if (>= (length lyric) pos) (substring scrolled-lyric pos) - (throw 'return)))))) + (throw 'return t)))))) (setq time (+ time emms-lyrics-scroll-timer-interval)) (setq pos (1+ pos)))))) |