Add `emms-ensure-player-playing-p'

darcs-hash:20050916212623-2189f-bda20f8b211ef0ef2e85316c0d9b684fb391b237.gz

1 files changed, 7 insertions, 3 deletions

diff --git a/emms.el b/emms.el
index ba67774..18c0edb 100644
--- a/emms.el
+++ b/emms.el
@@ -274,9 +274,8 @@ This is a good function to put in `emms-player-finished-hook'."
 This can be a floating point number for sub-second fractions.
 It can also be negative to seek backwards."
   (interactive "nSeconds to seek: ")
-  (if emms-player-playing-p
-      (emms-player-seek seconds)
-    (error "Nothing playing right now")))
+  (emms-ensure-player-playing-p)
+  (emms-player-seek seconds))
 
 (defun emms-seek-forward ()
   "Seek ten seconds forward."
@@ -340,6 +339,11 @@ See  `emms-repeat-track'."
   (string< (emms-track-name a)
            (emms-track-name b)))
 
+(defun emms-ensure-player-playing-p ()
+  "Raise an error if no player is playing right now."
+  (when (not emms-player-playing-p)
+    (error "No EMMS player playing right now")))
+
 
 ;;; Tracks