aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-lyrics.el
diff options
context:
space:
mode:
authorWilliam Xu <william.xwl@gmail.com>2009-11-23 22:11:19 +0800
committerWilliam Xu <william.xwl@gmail.com>2009-11-23 22:11:19 +0800
commite54c755ce0c2ef19bfcd4cdca995e4d2bc3b2703 (patch)
tree2d5262b40213039f05a8af123148ca0a41fbc6c5 /lisp/emms-lyrics.el
parent2b629e9c2d97a521a4cddbf03286661eab687c42 (diff)
Fix compiler warnings.
For emms-browser.el, emms-compat.el, emms-last-play.el, emms-lyrics.el and emms-streams.el.
Diffstat (limited to 'lisp/emms-lyrics.el')
-rw-r--r--lisp/emms-lyrics.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emms-lyrics.el b/lisp/emms-lyrics.el
index 1e15c2e..c7c297a 100644
--- a/lisp/emms-lyrics.el
+++ b/lisp/emms-lyrics.el
@@ -308,8 +308,7 @@ job."
emms-lyrics-elapsed-time 0)
(emms-lyrics-read-file lrc t)
(emms-lyrics-set-timer)
- (emms-lyrics-seek
- (time-to-seconds (time-since old-start)))))
+ (emms-lyrics-seek (float-time (time-since old-start)))))
(defun emms-lyrics-stop ()
"Stop displaying lyrics."
@@ -328,7 +327,7 @@ job."
(setq emms-lyrics-pause-time (current-time))
(when emms-lyrics-pause-time
(setq emms-lyrics-elapsed-time
- (+ (time-to-seconds
+ (+ (float-time
(time-subtract emms-lyrics-pause-time
emms-lyrics-start-time))
emms-lyrics-elapsed-time)))
@@ -342,7 +341,7 @@ job."
"Seek forward or backward SEC seconds lyrics."
(setq emms-lyrics-elapsed-time
(+ emms-lyrics-elapsed-time
- (time-to-seconds (time-since emms-lyrics-start-time))
+ (float-time (time-since emms-lyrics-start-time))
sec))
(when (< emms-lyrics-elapsed-time 0) ; back to start point
(setq emms-lyrics-elapsed-time 0))
@@ -490,7 +489,7 @@ NEXT-LYRIC."
"Insert lyric time in the form: [01:23.21], then goto the
beginning of next line."
(interactive)
- (let* ((total (+ (time-to-seconds
+ (let* ((total (+ (float-time
(time-subtract (current-time)
emms-lyrics-start-time))
emms-lyrics-elapsed-time))