David Engster <[email protected]> writes:
> + (concat "seek " song " " (round (number-to-string (+ secs
> amount))))
This is of course wrong... Don't know why this ever seemed to
work. Please find attached the corrected patch. Sorry for the noise.
-David
diff --git a/lisp/emms-player-mpd.el b/lisp/emms-player-mpd.el
index fa8f911..e15cced 100644
--- a/lisp/emms-player-mpd.el
+++ b/lisp/emms-player-mpd.el
@@ -993,7 +994,7 @@ from other functions."
(secs (emms-player-mpd-get-playing-time nil #'ignore info)))
(when (and song secs)
(emms-player-mpd-send
- (concat "seek " song " " (number-to-string (+ secs amount)))
+ (concat "seek " song " " (number-to-string (round (+ secs amount))))
nil #'ignore))))))
(defun emms-player-mpd-seek-to (pos)
@@ -1004,7 +1005,7 @@ from other functions."
(lambda (pos song)
(when (and song pos)
(emms-player-mpd-send
- (concat "seek " song " " (number-to-string pos))
+ (concat "seek " song " " (number-to-string (round pos)))
nil #'ignore)))))
(defun emms-player-mpd-next ()
_______________________________________________
Emms-help mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emms-help
