comparison lisp/=timer.el @ 1241:de92360b091b

(timer-process-sentinel): Don't set timer-scratch.

1240:7365d006d0a0

      ;; if it exited normally, presumably it was intentional.
      ;; if there were no pending events, who cares that it exited?
      (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 ""))))

(defun cancel-timer (function)
  "Cancel all events scheduled by ``run-at-time'' which would run FUNCTION."
  (interactive "aCancel function: ")
  (let ((alist timer-alist))

1241:de92360b091b

      ;; if it exited normally, presumably it was intentional.
      ;; if there were no pending events, who cares that it exited?
      (if (or (not timer-alist) (eq stat 'exit)) ()
        (ding 'no-terminate)
        (message "Timer exited abnormally.  All events cancelled."))
      ;; 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."
  (interactive "aCancel function: ")
  (let ((alist timer-alist))