[emms-help] Re: seeking in emm-player-mpd

[David Engster]

David Engster <address@hidden> 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 ()