diff options
author | William Xu <william.xwl@gmail.com> | 2009-11-23 22:11:19 +0800 |
---|---|---|
committer | William Xu <william.xwl@gmail.com> | 2009-11-23 22:11:19 +0800 |
commit | e54c755ce0c2ef19bfcd4cdca995e4d2bc3b2703 (patch) | |
tree | 2d5262b40213039f05a8af123148ca0a41fbc6c5 /lisp/emms-lyrics.el | |
parent | 2b629e9c2d97a521a4cddbf03286661eab687c42 (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.el | 9 |
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)) |