changeset 14923:20c5d04f8013

(timer-event-handler): Save copies of events too.
author Richard M. Stallman <rms@gnu.org>
date Tue, 02 Apr 1996 15:14:29 +0000
parents 1968e2da175c
children 67ec801831b8
files lisp/timer.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/timer.el	Tue Apr 02 01:35:43 1996 +0000
+++ b/lisp/timer.el	Tue Apr 02 15:14:29 1996 +0000
@@ -219,7 +219,7 @@
   (interactive "e")
   (setq timer-event-last-2 timer-event-last-1)
   (setq timer-event-last-1 timer-event-last)
-  (setq timer-event-last event)
+  (setq timer-event-last (cons event (copy-sequence event)))
   (let ((inhibit-quit t)
 	(timer (car-safe (cdr-safe event))))
     (if (timerp timer)