changeset 74135:e125bce98ce9

(url-display-percentage): Only show a message if `url-show-status' is non-nil.
author Magnus Henoch <mange@freemail.hu>
date Thu, 23 Nov 2006 08:40:50 +0000
parents a81576ee49cc
children 8d82adfb134d
files lisp/url/url-util.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/url/url-util.el	Thu Nov 23 08:40:06 2006 +0000
+++ b/lisp/url/url-util.el	Thu Nov 23 08:40:50 2006 +0000
@@ -244,12 +244,13 @@
 
 ;;;###autoload
 (defun url-display-percentage (fmt perc &rest args)
-  (if (null fmt)
-      (if (fboundp 'clear-progress-display)
-	  (clear-progress-display))
-    (if (and (fboundp 'progress-display) perc)
-	(apply 'progress-display fmt perc args)
-      (apply 'message fmt args))))
+  (when url-show-status
+    (if (null fmt)
+	(if (fboundp 'clear-progress-display)
+	    (clear-progress-display))
+      (if (and (fboundp 'progress-display) perc)
+	  (apply 'progress-display fmt perc args)
+	(apply 'message fmt args)))))
 
 ;;;###autoload
 (defun url-percentage (x y)