From 11bc711f9727efbe6bddc6512b396de0314bd483 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Thu, 12 Jul 2007 06:20:00 +0000 Subject: make-number-of-secs-to-seek-configurable.dpatch Patch sent by "Alfred M. Szmidt" in <20070711183504.EFD58301E5@Psilocybe.Update.UU.SE> on the emms-users list (with slight modifications). darcs-hash:20070712062052-c06f4-032102b01507ffc27f211c29cb5375ab862f22dc.gz --- emms.el | 10 ++++++++-- 1 file 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. -- cgit v1.2.3