diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 44a1c608949..69ae804e200 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -5041,7 +5041,7 @@ NEW-MESSAGE, if non-nil, sets a new message for the reporter." (enough-time-passed ;; See if enough time has passed since the last update. (or (not update-time) - (when (>= (float-time) update-time) + (when (time-less-p update-time nil) ;; Calculate time for the next update (aset parameters 0 (+ update-time (aref parameters 5))))))) (cond ((and min-value max-value) |