[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 868eb74: Simplify make-progress-reporter vs float
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] emacs-26 868eb74: Simplify make-progress-reporter vs float-time |
Date: |
Fri, 20 Oct 2017 23:14:39 -0400 (EDT) |
branch: emacs-26
commit 868eb74f910eb67a5e74ebb1867ebcfbfced55c4
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
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.
---
lisp/subr.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/lisp/subr.el b/lisp/subr.el
index c216877..49fffad 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 868eb74: Simplify make-progress-reporter vs float-time,
Paul Eggert <=