aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/emms-player-vlc.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emms-player-vlc.el b/lisp/emms-player-vlc.el
index fce1fee..11a36e7 100644
--- a/lisp/emms-player-vlc.el
+++ b/lisp/emms-player-vlc.el
@@ -60,12 +60,15 @@
(process-send-string
emms-player-simple-process-name "pause\n"))
-;; Pending a patch to CVS vlc to add relative seeking to the "rc" vlc
-;; interface.
(defun emms-player-vlc-seek (sec)
- (message "Relative seeking not supported yet (bug yonirabkin@member.fsf.org about it)."))
+ "Seek relative within a stream."
+ (when (not (= 0 sec))
+ (process-send-string
+ emms-player-simple-process-name
+ (if (< 0 sec) "fastforward\n" "rewind\n"))))
(defun emms-player-vlc-seek-to (sec)
+ "Seek to time SEC within the stream."
(process-send-string
emms-player-simple-process-name
(format "seek %d\n" sec)))