diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-09-28 12:41:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-09-28 12:41:39 +0000 |
| commit | 1f3a7283af01be743e039e3f1a9a8d05ede06a37 (patch) | |
| tree | d8091c5976e63e7a458c28a941319fe282c1a365 /lisp/timer.el | |
| parent | 7d8451f188123e72ee48ebcc0d601a85b0d4aa0a (diff) | |
| download | emacs-1f3a7283af01be743e039e3f1a9a8d05ede06a37.tar.gz | |
(timer-process-sentinel): Don't set timer-scratch.
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index bbd650d721f..cde6cc34c8a 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -83,7 +83,8 @@ the call to the function. If REPEAT is nil, call it just once." (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." |