aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorforcer <forcer>2006-01-04 15:42:00 +0000
committerforcer <mwolson@gnu.org>2006-01-04 15:42:00 +0000
commitd55a9c702e617e9808213c07847d5a0b803df1c2 (patch)
treee1150b64c226e0971c72e6c0c0e99964715060c8
parent725f0bd17945de99f325040a8d8cf6abc0206dde (diff)
Move `emms-cancel-timer' to a compatibility section in emms.el
darcs-hash:20060104154238-2189f-946812c2493356d70391bac43323ae75958631ad.gz
-rw-r--r--emms.el19
1 files changed, 11 insertions, 8 deletions
diff --git a/emms.el b/emms.el
index e17f8eb..1c2a083 100644
--- a/emms.el
+++ b/emms.el
@@ -363,14 +363,6 @@ See `emms-repeat-track'."
(when (not emms-player-playing-p)
(error "No EMMS player playing right now")))
-(defun emms-cancel-timer (timer)
- "Cancel the given TIMER."
- (when timer
- (cond ((fboundp 'cancel-timer)
- (cancel-timer timer))
- ((fboundp 'delete-itimer)
- (delete-itimer timer)))))
-
;;; Tracks
@@ -1183,5 +1175,16 @@ or negative to seek backwards."
(list (cons name value))))))
dict)
+
+;;; XEmacs compatibility
+
+(defun emms-cancel-timer (timer)
+ "Cancel the given TIMER."
+ (when timer
+ (cond ((fboundp 'cancel-timer)
+ (cancel-timer timer))
+ ((fboundp 'delete-itimer)
+ (delete-itimer timer)))))
+
(provide 'emms)
;;; emms.el ends here