diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-08-03 10:06:39 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-08-03 10:39:53 +0200 |
commit | 33b32269754af36f8b39cf3357597bd0dd78caa9 (patch) | |
tree | dc44dd11cd9ba527bfd464a91da6303ac742b36e /lisp/url/url-util.el | |
parent | 836ef4293fa6df71336f6e88a3e404480eb2f96c (diff) | |
download | emacs-33b32269754af36f8b39cf3357597bd0dd78caa9.tar.gz |
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.
Diffstat (limited to 'lisp/url/url-util.el')
-rw-r--r-- | lisp/url/url-util.el | 10 |
1 files changed, 3 insertions, 7 deletions
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) |