make-number-of-secs-to-seek-configurable.dpatch

Patch sent by "Alfred M. Szmidt" <ams@gnu.org> in
<20070711183504.EFD58301E5@Psilocybe.Update.UU.SE> on the emms-users list (with
slight modifications).

darcs-hash:20070712062052-c06f4-032102b01507ffc27f211c29cb5375ab862f22dc.gz

1 files changed, 8 insertions, 2 deletions

diff --git a/emms.el b/emms.el
index 13bdaf8..d25808d 100644
--- a/emms.el
+++ b/emms.el
@@ -217,6 +217,12 @@ Use `emms-player-paused-p' to find the current state."
   :group 'emms
   :type 'hook)
 
+(defcustom emms-seek-seconds 10
+  "The number of seconds to seek forward or backward when seeking.
+This is a number in seconds."
+  :group 'emms
+  :type 'number)
+
 (defcustom emms-player-seeked-functions nil
   "*Functions called when a player is seeking.
 The functions are called with a single argument, the amount of
@@ -407,13 +413,13 @@ It can also be negative to seek backwards."
   "Seek ten seconds forward."
   (interactive)
   (when emms-player-playing-p
-    (emms-player-seek 10)))
+    (emms-player-seek emms-seek-seconds)))
 
 (defun emms-seek-backward ()
   "Seek ten seconds backward."
   (interactive)
   (when emms-player-playing-p
-    (emms-player-seek -10)))
+    (emms-player-seek (- emms-seek-seconds))))
 
 (defun emms-show (&optional insertp)
   "Describe the current EMMS track in the minibuffer.