diff options
| author | Paul Eggert | 2020-03-07 09:47:03 -0800 |
|---|---|---|
| committer | Paul Eggert | 2020-03-07 09:50:18 -0800 |
| commit | 363d927086dbdc4e5073393889b76eb0470785f4 (patch) | |
| tree | 245e440362bd2282ee1c4ed23f30357ad9afcd00 | |
| parent | 818333c85a513dc2d0ae9ee00ecde983c4fe0269 (diff) | |
| download | emacs-363d927086dbdc4e5073393889b76eb0470785f4.tar.gz 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).
| -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 | |||
| 378 | (decoded-time-year now) | 378 | (decoded-time-year now) |
| 379 | (decoded-time-zone now))))))) | 379 | (decoded-time-zone now))))))) |
| 380 | 380 | ||
| 381 | (or (consp time) | 381 | (or (time-equal-p time time) |
| 382 | (error "Invalid time format")) | 382 | (error "Invalid time format")) |
| 383 | 383 | ||
| 384 | (let ((timer (timer-create))) | 384 | (let ((timer (timer-create))) |