diff options
| -rw-r--r-- | lisp/timer.el | 4 |
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) |