emms-help
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]