diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2017-10-20 20:13:09 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2017-10-20 20:14:33 -0700 |
| commit | 868eb74f910eb67a5e74ebb1867ebcfbfced55c4 (patch) | |
| tree | 2e2f7b3a0576d5fdc8cf856685c2f3e430069a42 /lisp | |
| parent | 83db9a1bba20575303fd01f8e67d5c6e09e3d72a (diff) | |
| download | emacs-868eb74f910eb67a5e74ebb1867ebcfbfced55c4.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -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 c216877ce5f..49fffad7fe6 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 |