diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2020-03-07 09:47:03 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2020-03-07 09:50:18 -0800 |
| commit | 363d927086dbdc4e5073393889b76eb0470785f4 (patch) | |
| tree | 245e440362bd2282ee1c4ed23f30357ad9afcd00 /lisp/emacs-lisp/timer.el | |
| parent | 818333c85a513dc2d0ae9ee00ecde983c4fe0269 (diff) | |
| download | emacs-363d927086dbdc4e5073393889b76eb0470785f4.tar.gz emacs-363d927086dbdc4e5073393889b76eb0470785f4.tar.bz2 emacs-363d927086dbdc4e5073393889b76eb0470785f4.zip | |
Fix bug with JIT stealth timers
* lisp/emacs-lisp/timer.el (run-at-time): Don’t assume that Lisp
time values must be conses (Bug#39944).
Diffstat (limited to 'lisp/emacs-lisp/timer.el')
| -rw-r--r-- | lisp/emacs-lisp/timer.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el index 74a94957e73..9eb8feed0f1 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -378,7 +378,7 @@ This function returns a timer object which you can use in (decoded-time-year now) (decoded-time-zone now))))))) - (or (consp time) + (or (time-equal-p time time) (error "Invalid time format")) (let ((timer (timer-create))) |