diff options
author | Tassilo Horn <tassilo@member.fsf.org> | 2007-07-12 06:20:00 +0000 |
---|---|---|
committer | Tassilo Horn <tassilo@member.fsf.org> | 2007-07-12 06:20:00 +0000 |
commit | 11bc711f9727efbe6bddc6512b396de0314bd483 (patch) | |
tree | 2f537df152d58964f6ac4fb920ec34f871ff0871 | |
parent | cc9aff2561eb18b720539cb43d2d43e06d54a75c (diff) |
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
-rw-r--r-- | emms.el | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -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. |