diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2019-04-24 18:13:04 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-04-24 18:13:04 +0300 |
| commit | 2b3c0ae5828810c6d24f3902bade125aee8b9e9c (patch) | |
| tree | 34c9addc03749334a8ba62a2c9ced0e9546af943 | |
| parent | f6e6c1744be5620ce97c8429a161ae5cf733a949 (diff) | |
| download | emacs-2b3c0ae5828810c6d24f3902bade125aee8b9e9c.tar.gz | |
Fix rescheduling timers after suspension
* lisp/emacs-lisp/timer.el (timer-event-handler): Fix the
comparison between next invocation time and current time.
| -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 f706d9bc626..22ccc35103a 100644 --- a/lisp/emacs-lisp/timer.el +++ b/lisp/emacs-lisp/timer.el @@ -281,7 +281,7 @@ This function is called, by name, directly by the C code." ;; perhaps because Emacs was suspended for a long time, ;; limit how many times things get repeated. (if (and (numberp timer-max-repeats) - (time-less-p nil (timer--time timer))) + (time-less-p (timer--time timer) nil)) (let ((repeats (/ (timer-until timer nil) (timer--repeat-delay timer)))) (if (> repeats timer-max-repeats) |