From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 21 Oct 2017 03:13:09 +0000 (-0700)
Subject: Simplify make-progress-reporter vs float-time
X-Git-Tag: emacs-26.0.91~506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=868eb74f910eb67a5e74ebb1867ebcfbfced55c4;p=emacs.git

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

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