diff options
| author | Lucas Bonnet <lucas@rincevent.net> | 2010-03-01 18:30:31 +0100 |
|---|---|---|
| committer | Lucas Bonnet <lucas@rincevent.net> | 2010-03-01 18:30:31 +0100 |
| commit | 692d1841d1f088dac00737f44ecbf7aca3781317 (patch) | |
| tree | 8e3437e6b31048dd12c3026191ef0555a1e2f6cd /lisp/emms-player-mpd.el | |
| parent | 886bfe0593e5ba0f419e499b8112cf4bb6b39679 (diff) | |
* emms-player-mpd: (emms-player-mpd-seek, emms-player-mpd-seek-to):
Round to full seconds since mpd doesn't allow float values for
seeking (this usually happens with emms-cue-next, for instance).
Patch by David Engster <deng@randomsample.de>
Diffstat (limited to 'lisp/emms-player-mpd.el')
| -rw-r--r-- | lisp/emms-player-mpd.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emms-player-mpd.el b/lisp/emms-player-mpd.el index 7ba5742..4b37cee 100644 --- a/lisp/emms-player-mpd.el +++ b/lisp/emms-player-mpd.el @@ -994,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) @@ -1005,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 () |