Use timers in a way that is compatible with both Emacs and XEmacs.

darcs-hash:20060104061024-1bfb2-a35972f84a96c27a9a4bee6a245a8cbe2d6a8dd1.gz

1 files changed, 8 insertions, 0 deletions

diff --git a/emms.el b/emms.el
index 73dfd86..e17f8eb 100644
--- a/emms.el
+++ b/emms.el
@@ -363,6 +363,14 @@ 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