From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 3 Aug 2022 08:06:39 +0000 (+0200)
Subject: Remove some XEmacs compat code from url-util.el
X-Git-Tag: emacs-29.0.90~1447^2~521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33b32269754af36f8b39cf3357597bd0dd78caa9;p=emacs.git

Remove some XEmacs compat code from url-util.el

These functions only exist in the XEmacs GTK support.
* lisp/url/url-util.el (url-display-percentage): Remove XEmacs
compat code.
---

diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 993a3732abf..a6a4beccebb 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -196,16 +196,12 @@ Will not do anything if `url-show-status' is nil."
   'file-size-human-readable "24.4")
 
 ;;;###autoload
-(defun url-display-percentage (fmt perc &rest args)
+(defun url-display-percentage (fmt _perc &rest args)
   (when (and url-show-status
 	     (or (null url-current-object)
 		 (not (url-silent url-current-object))))
-    (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 (not (null fmt))
+      (apply 'message fmt args))))
 
 ;;;###autoload
 (defun url-percentage (x y)