From d55a9c702e617e9808213c07847d5a0b803df1c2 Mon Sep 17 00:00:00 2001 From: forcer Date: Wed, 4 Jan 2006 15:42:00 +0000 Subject: Move `emms-cancel-timer' to a compatibility section in emms.el darcs-hash:20060104154238-2189f-946812c2493356d70391bac43323ae75958631ad.gz --- emms.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'emms.el') 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 -- cgit v1.2.3