From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Mar 1996 00:08:15 +0000 (+0000)
Subject: (timer-event-handler): Inhibit quitting.
X-Git-Tag: emacs-19.34~975
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b883eed3160a56eab073bcb5a6f90a8c8b31b3a1;p=emacs.git

(timer-event-handler): Inhibit quitting.
Record the last few events.
---

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.