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 | 92607ddb921b72b9b77b5b609d465e76a66ced8b (patch) | |
| tree | de0e81a7961145d71d20d3159bb37abff0a37d5c /lisp/=timer.el | |
| parent | 184c0bf47e3e1d3e39e4839840453145ee8be096 (diff) | |
| download | emacs-92607ddb921b72b9b77b5b609d465e76a66ced8b.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." |