# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 827885295 0
# Node ID 38e792454ee3ec920cd5e2112333b04f0b46df56
# Parent  f05c21f41b134852e6182c8aabfa2fd23d961c56
(timer-event-handler): Inhibit quitting.
Record the last few events.

diff -r f05c21f41b13 -r 38e792454ee3 lisp/timer.el
--- a/lisp/timer.el	Wed Mar 27 00:01:14 1996 +0000
+++ b/lisp/timer.el	Wed Mar 27 00:08:15 1996 +0000
@@ -209,10 +209,19 @@
 ;; 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.