From 2e8093272bef16a36d8e0164fe6e7ebb00a9e775 Mon Sep 17 00:00:00 2001
From: mlang <mlang>
Date: Fri, 29 Sep 2006 22:15:00 +0000
Subject: seek-for-alsaplayer

Add relative seek support for alsaplayer

darcs-hash:20060929221527-08870-4f515bbd69389f261ffefdef0a295c54594c194d.gz
---
 emms-player-simple.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/emms-player-simple.el b/emms-player-simple.el
index 244f701..de3edad 100644
--- a/emms-player-simple.el
+++ b/emms-player-simple.el
@@ -194,8 +194,15 @@ PLAYER is the name of the current player."
                  'resume
                  nil)
 
+(emms-player-set emms-player-alsaplayer
+		 'seek
+		 'emms-player-alsaplayer-seek)
+
 (defun emms-player-alsaplayer-pause ()
   (call-process "alsaplayer" nil nil nil "--pause"))
 
+(defun emms-player-alsaplayer-seek (sec)
+  (call-process "alsaplayer" nil nil nil "--relative" (format "%d" sec)))
+
 (provide 'emms-player-simple)
 ;;; emms-player-simple.el ends here
-- 
cgit v1.2.3