changeset 57408:601c087f45f6

(progress-reporter-update): Define before first usage. (make-progress-reporter): Doc fix.
author Kim F. Storm <storm@cua.dk>
date Sat, 09 Oct 2004 21:50:57 +0000
parents 47b51cd0be44
children d367877eabf0
files lisp/subr.el
diffstat 1 files changed, 17 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sat Oct 09 21:50:38 2004 +0000
+++ b/lisp/subr.el	Sat Oct 09 21:50:57 2004 +0000
@@ -2671,10 +2671,26 @@
 ;; digits of precision, it doesn't really matter here.  On the other
 ;; hand, it greatly simplifies the code.
 
+(defsubst progress-reporter-update (reporter value)
+  "Report progress of an operation in the echo area.
+However, if the change since last echo area update is too small
+or not enough time has passed, then do nothing (see
+`make-progress-reporter' for details).
+
+First parameter, REPORTER, should be the result of a call to
+`make-progress-reporter'.  Second, VALUE, determines the actual
+progress of operation; it must be between MIN-VALUE and MAX-VALUE
+as passed to `make-progress-reporter'.
+
+This function is very inexpensive, you may not bother how often
+you call it."
+  (when (>= value (car reporter))
+    (progress-reporter-do-update reporter value)))
+
 (defun make-progress-reporter (message min-value max-value
 				       &optional current-value
 				       min-change min-time)
-  "Return an object suitable for reporting operation progress with `progress-reporter-update'.
+  "Return progress reporter object usage with `progress-reporter-update'.
 
 MESSAGE is shown in the echo area.  When at least 1% of operation
 is complete, the exact percentage will be appended to the
@@ -2711,22 +2727,6 @@
     (progress-reporter-update reporter (or current-value min-value))
     reporter))
 
-(defsubst progress-reporter-update (reporter value)
-  "Report progress of an operation in the echo area.
-However, if the change since last echo area update is too small
-or not enough time has passed, then do nothing (see
-`make-progress-reporter' for details).
-
-First parameter, REPORTER, should be the result of a call to
-`make-progress-reporter'.  Second, VALUE, determines the actual
-progress of operation; it must be between MIN-VALUE and MAX-VALUE
-as passed to `make-progress-reporter'.
-
-This function is very inexpensive, you may not bother how often
-you call it."
-  (when (>= value (car reporter))
-    (progress-reporter-do-update reporter value)))
-
 (defun progress-reporter-force-update (reporter value &optional new-message)
   "Report progress of an operation in the echo area unconditionally.