From 8fce904cf69a3e4545e77002195cc4613f935736 Mon Sep 17 00:00:00 2001 From: Yoni Rabkin Date: Thu, 2 Oct 2008 18:01:50 +0300 Subject: * emms-player-vlc.el (emms-player-vlc-seek): Add seek functionality for vlc. * emms-player-vlc.el (emms-player-vlc-seek-to): Add docstring. --- lisp/emms-player-vlc.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp') 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))) -- cgit v1.2.3