Mercurial > emacs
changeset 14885:38e792454ee3
(timer-event-handler): Inhibit quitting.
Record the last few events.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Mar 1996 00:08:15 +0000 |
| parents | f05c21f41b13 |
| children | 96423e733197 |
| files | lisp/timer.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.