# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717684099 0
# Node ID de92360b091be1cef3fe3d4d69339f03b7908b16
# Parent  7365d006d0a014124c0e323a7d089d8476857115
(timer-process-sentinel): Don't set timer-scratch.

diff -r 7365d006d0a0 -r de92360b091b lisp/=timer.el
--- 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."