summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-04-02 15:14:29 +0000
committerRichard M. Stallman <rms@gnu.org>1996-04-02 15:14:29 +0000
commit46bec26ad3b30aae804d3b39e864f4c2d91636da (patch)
treedf7d0bbbe526b4b3e1133be5508f9fbc0833df1d /lisp
parent7b1f93f69661cff9345e6edf3b0df2a2c13fbc30 (diff)
downloademacs-46bec26ad3b30aae804d3b39e864f4c2d91636da.tar.gz
(timer-event-handler): Save copies of events too.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/timer.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/timer.el b/lisp/timer.el
index 64f8764a3e4..ebf52a85790 100644
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -219,7 +219,7 @@ fire repeatedly that many seconds apart."
(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)