diff options
| author | Richard M. Stallman | 1996-04-02 15:14:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-02 15:14:29 +0000 |
| commit | 13f8accb34ec147f719776e570e7ffb3b1bd2ef4 (patch) | |
| tree | 69a42079a2be62249f617bf9054e9431f4c7e410 /lisp/timer.el | |
| parent | 98ea03086aa7c1dd2213b1c1a7cf56478ce494db (diff) | |
| download | emacs-13f8accb34ec147f719776e570e7ffb3b1bd2ef4.tar.gz emacs-13f8accb34ec147f719776e570e7ffb3b1bd2ef4.zip | |
(timer-event-handler): Save copies of events too.
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 2 |
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." | |||
| 219 | (interactive "e") | 219 | (interactive "e") |
| 220 | (setq timer-event-last-2 timer-event-last-1) | 220 | (setq timer-event-last-2 timer-event-last-1) |
| 221 | (setq timer-event-last-1 timer-event-last) | 221 | (setq timer-event-last-1 timer-event-last) |
| 222 | (setq timer-event-last event) | 222 | (setq timer-event-last (cons event (copy-sequence event))) |
| 223 | (let ((inhibit-quit t) | 223 | (let ((inhibit-quit t) |
| 224 | (timer (car-safe (cdr-safe event)))) | 224 | (timer (car-safe (cdr-safe event)))) |
| 225 | (if (timerp timer) | 225 | (if (timerp timer) |