Mercurial > emacs
changeset 1241:de92360b091b
(timer-process-sentinel): Don't set timer-scratch.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Sep 1992 12:41:39 +0000 |
| parents | 7365d006d0a0 |
| children | 82774f4b69dd |
| files | lisp/=timer.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=timer.el Mon Sep 28 07:40:46 1992 +0000 +++ b/lisp/=timer.el Mon Sep 28 12:41:39 1992 +0000 @@ -83,7 +83,8 @@ (if (or (not timer-alist) (eq stat 'exit)) () (ding 'no-terminate) (message "Timer exited abnormally. All events cancelled.")) - (setq timer-process nil timer-alist nil timer-scratch "")))) + ;; Used to set timer-scratch to "", but nothing uses that var. + (setq timer-process nil timer-alist nil)))) (defun cancel-timer (function) "Cancel all events scheduled by ``run-at-time'' which would run FUNCTION."