aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/timer.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/timer.el b/lisp/timer.el
index e63f77defa0..1bfc5ec323a 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -128,9 +128,9 @@ will happen at the specified time."
128 ;; Used to set timer-scratch to "", but nothing uses that var. 128 ;; Used to set timer-scratch to "", but nothing uses that var.
129 (setq timer-process nil timer-alist nil)))) 129 (setq timer-process nil timer-alist nil))))
130 130
131(defun cancel-timer (function) 131(defun cancel-function-timers (function)
132 "Cancel all events scheduled by `run-at-time' which would run FUNCTION." 132 "Cancel all events scheduled by `run-at-time' which would run FUNCTION."
133 (interactive "aCancel function: ") 133 (interactive "aCancel timers of function: ")
134 (let ((alist timer-alist)) 134 (let ((alist timer-alist))
135 (while alist 135 (while alist
136 (if (eq (nth 2 (car alist)) function) 136 (if (eq (nth 2 (car alist)) function)