* emms-player-vlc.el (emms-player-vlc-seek): Add seek functionality

  for vlc.

* emms-player-vlc.el (emms-player-vlc-seek-to): Add docstring.

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)))