mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(timer-event-handler): Inhibit quitting.

Browse source 
Record the last few events.
This commit is contained in:
Richard M. Stallman 1996-03-27 00:08:15 +00:00
parent d0cb3f6010
commit b883eed316
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/timer.el
View file

@ -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.