From bc0a635e4f13e4b8e431cfd0cb21074fcb10e2b9 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 2 Mar 2007 06:58:00 +0000 Subject: emms-lyrics: Fix several compiler warnings darcs-hash:20070302065810-1bfb2-6dcbd9b2f3cd32d38f4237b8f21fb8fa0dfa5f10.gz --- emms-lyrics.el | 7 ++++--- 1 file 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)))))) -- cgit v1.2.3