From 74ffb1b03be6669294921c2e6e754b8f6fc2b2c9 Mon Sep 17 00:00:00 2001 From: forcer Date: Fri, 16 Sep 2005 21:26:00 +0000 Subject: Add `emms-ensure-player-playing-p' darcs-hash:20050916212623-2189f-bda20f8b211ef0ef2e85316c0d9b684fb391b237.gz --- emms.el | 10 +++++++--- 1 file 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 -- cgit v1.2.3