From: okazaki <okazaki>
Date: Wed, 21 Feb 2001 05:57:07 +0000 (+0000)
Subject: * elmo-util.el (elmo-display-progress): Prefer
X-Git-Tag: wl-2_6-root~91
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=853d5e238d144fa1d39a6745c6203a440bcf737c;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-display-progress): Prefer
`progress-feedback-with-label' to `lprogress-display'.
---

diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 55fdc6a..80b1a71 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -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."