Move `emms-cancel-timer' to a compatibility section in emms.el

darcs-hash:20060104154238-2189f-946812c2493356d70391bac43323ae75958631ad.gz

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