From 868eb74f910eb67a5e74ebb1867ebcfbfced55c4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 20 Oct 2017 20:13:09 -0700 Subject: [PATCH] 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 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 -- 2.11.4.GIT