mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

Simplify make-progress-reporter vs float-time

Browse Source 
* 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.
This commit is contained in:
Paul Eggert 2017-10-20 20:13:09 -07:00
parent 83db9a1bba
commit 868eb74f91
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/subr.el
View File

@ -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