[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[emms-help] emms-skip-forward/backward patch
From: |
Alfred M. Szmidt |
Subject: |
[emms-help] emms-skip-forward/backward patch |
Date: |
Wed, 11 Jul 2007 20:35:04 +0200 (CEST) |
It is nice to be able to tweak the number of seconds one can seek,
this does just that. The variable name might not be the best idea
ever produced though...
diff -up /home/ams/s/vcs/emms/emms.el.\~1\~ /home/ams/s/vcs/emms/emms.el
--- /home/ams/s/vcs/emms/emms.el.~1~ 2007-06-29 19:07:58.000000000 +0200
+++ /home/ams/s/vcs/emms/emms.el 2007-07-09 23:07:02.000000000 +0200
@@ -217,6 +217,12 @@ Use `emms-player-paused-p' to find the c
:group 'emms
:type 'hook)
+(defcustom emms-skip-seek 10
+ "The number of seconds to seek forward or backward when playing.
+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 backward
"Seek ten seconds forward."
(interactive)
(when emms-player-playing-p
- (emms-player-seek 10)))
+ (emms-player-seek emms-skip-seek)))
(defun emms-seek-backward ()
"Seek ten seconds backward."
(interactive)
(when emms-player-playing-p
- (emms-player-seek -10)))
+ (emms-player-seek (- emms-skip-seek))))
(defun emms-show (&optional insertp)
"Describe the current EMMS track in the minibuffer.
Diff finished. Mon Jul 9 23:07:04 2007
- [emms-help] emms-skip-forward/backward patch,
Alfred M. Szmidt <=