masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-18 01:46:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
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. and/or MAX-VALUE are nil.
Optional MIN-TIME specifies the minimum interval time between Optional MIN-TIME specifies the minimum interval time between
echo area updates (default is 0.2 seconds.) If the function echo area updates (default is 0.2 seconds.) If the OS is not
`float-time' is not present, time is not tracked at all. If the capable of measuring fractions of seconds, this parameter is
OS is not capable of measuring fractions of seconds, this effectively rounded up."
parameter is effectively rounded up."
(when (string-match "[[:alnum:]]\\'" message) (when (string-match "[[:alnum:]]\\'" message)
(setq message (concat message "..."))) (setq message (concat message "...")))
(unless min-time (unless min-time
@ -4831,8 +4830,7 @@ parameter is effectively rounded up."
(let ((reporter (let ((reporter
;; Force a call to `message' now ;; Force a call to `message' now
(cons (or min-value 0) (cons (or min-value 0)
(vector (if (and (fboundp 'float-time) (vector (if (>= min-time 0.02)
(>= min-time 0.02))
(float-time) nil) (float-time) nil)
min-value min-value
max-value max-value