diff options
| author | Richard M. Stallman | 1993-05-29 20:43:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-29 20:43:41 +0000 |
| commit | 046c6887bcacc226d2a9bfb3136e9ab905d9acac (patch) | |
| tree | c974b424946d192d6ef31ce04c6352734989f9f0 /lisp/timer.el | |
| parent | 6f139a456c1b6ee458c68642e107794e4e9f8aa3 (diff) | |
| download | emacs-046c6887bcacc226d2a9bfb3136e9ab905d9acac.tar.gz emacs-046c6887bcacc226d2a9bfb3136e9ab905d9acac.zip | |
(cancel-function-timers): Renamed from spurious duplicate
definition of cancel-timer.
Diffstat (limited to 'lisp/timer.el')
| -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) |