* elmo-util.el (elmo-display-progress): Prefer
authorokazaki <okazaki>
Wed, 21 Feb 2001 05:57:07 +0000 (05:57 +0000)
committerokazaki <okazaki>
Wed, 21 Feb 2001 05:57:07 +0000 (05:57 +0000)
`progress-feedback-with-label' to `lprogress-display'.

elmo/elmo-util.el

index 55fdc6a..80b1a71 100644 (file)
@@ -1566,10 +1566,10 @@ the value of `foo'."
                (list 'error-message doc
                      'error-conditions (cons error conds))))))
 
-(cond ((fboundp 'lprogress-display)
-       (defalias 'elmo-display-progress 'lprogress-display))
-      ((fboundp 'progress-feedback-with-label)
+(cond ((fboundp 'progress-feedback-with-label)
        (defalias 'elmo-display-progress 'progress-feedback-with-label))
+      ((fboundp 'lprogress-display)
+       (defalias 'elmo-display-progress 'lprogress-display))
       (t
        (defun elmo-display-progress (label format &optional value &rest args)
         "Print a progress message."