Commit 868eb74f authored by Paul Eggert's avatar Paul Eggert

Simplify make-progress-reporter vs float-time

* lisp/subr.el (make-progress-reporter): Remove no-longer-needed
doc and code for the case where float-time is not supported,
since float-time is always present now.
parent 83db9a1b
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment