diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index a6c998e9be2..b6b55b53def 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -4820,10 +4820,9 @@ CURRENT-VALUE and MIN-CHANGE do not have any effect if MIN-VALUE and/or MAX-VALUE are nil. Optional MIN-TIME specifies the minimum interval time between -echo area updates (default is 0.2 seconds.) If the function -`float-time' is not present, time is not tracked at all. If the -OS is not capable of measuring fractions of seconds, this -parameter is effectively rounded up." +echo area updates (default is 0.2 seconds.) If the OS is not +capable of measuring fractions of seconds, this parameter is +effectively rounded up." (when (string-match "[[:alnum:]]\\'" message) (setq message (concat message "..."))) (unless min-time @@ -4831,8 +4830,7 @@ parameter is effectively rounded up." (let ((reporter ;; Force a call to `message' now (cons (or min-value 0) - (vector (if (and (fboundp 'float-time) - (>= min-time 0.02)) + (vector (if (>= min-time 0.02) (float-time) nil) min-value max-value |