aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2008-10-02 18:01:50 +0300
committerYoni Rabkin <yoni@rabkins.net>2008-10-02 18:01:50 +0300
commit8fce904cf69a3e4545e77002195cc4613f935736 (patch)
tree903b6d1cf589720d0295709fd8e8e3f7f5959611 /lisp
parent31841733b197fb4ad41b4270d0669059ad6e88c6 (diff)
* emms-player-vlc.el (emms-player-vlc-seek): Add seek functionality
for vlc. * emms-player-vlc.el (emms-player-vlc-seek-to): Add docstring.
Diffstat (limited to 'lisp')
-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)))