From b883eed3160a56eab073bcb5a6f90a8c8b31b3a1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Mar 1996 00:08:15 +0000 Subject: [PATCH] (timer-event-handler): Inhibit quitting. Record the last few events. --- lisp/timer.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/timer.el b/lisp/timer.el index bbf59d185d6..64f8764a3e4 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -209,10 +209,19 @@ fire repeatedly that many seconds apart." ;; middle of a key sequence being entered are still handled correctly. (define-key special-event-map [timer-event] 'timer-event-handler) +;; Record the last few events, for debugging. +(defvar timer-event-last-2 nil) +(defvar timer-event-last-1 nil) +(defvar timer-event-last nil) + (defun timer-event-handler (event) "Call the handler for the timer in the event EVENT." (interactive "e") - (let ((timer (car-safe (cdr-safe event)))) + (setq timer-event-last-2 timer-event-last-1) + (setq timer-event-last-1 timer-event-last) + (setq timer-event-last event) + (let ((inhibit-quit t) + (timer (car-safe (cdr-safe event)))) (if (timerp timer) (progn ;; Delete from queue. -- 2.39.2