[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 33b3226975 2/2: Remove some XEmacs compat code from url-util.el
From: |
Stefan Kangas |
Subject: |
master 33b3226975 2/2: Remove some XEmacs compat code from url-util.el |
Date: |
Wed, 3 Aug 2022 04:40:08 -0400 (EDT) |
branch: master
commit 33b32269754af36f8b39cf3357597bd0dd78caa9
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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.
---
lisp/url/url-util.el | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 993a3732ab..a6a4becceb 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)