[Emacs-diffs] Changes to emacs/lisp/subr.el

[Kim F . Storm]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.415 emacs/lisp/subr.el:1.416
*** emacs/lisp/subr.el:1.415    Fri Oct  8 17:21:57 2004
--- emacs/lisp/subr.el  Sat Oct  9 21:50:57 2004
***************
*** 2671,2680 ****
  ;; digits of precision, it doesn't really matter here.  On the other
  ;; hand, it greatly simplifies the code.
  
  (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'.
  
  MESSAGE is shown in the echo area.  When at least 1% of operation
  is complete, the exact percentage will be appended to the
--- 2671,2696 ----
  ;; 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 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,2732 ****
      (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.
  
--- 2727,2732 ----