# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 828458069 0
# Node ID 20c5d04f8013f818ab1a4c805046844babfd694f
# Parent  1968e2da175ca7a412adeb6b0a5ff54f094a1528
(timer-event-handler): Save copies of events too.

diff -r 1968e2da175c -r 20c5d04f8013 lisp/timer.el
--- 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)