diff options
Diffstat (limited to 'lisp/url/url-util.el')
| -rw-r--r-- | lisp/url/url-util.el | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index c40768ba42a..f995d575b6a 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -211,15 +211,9 @@ Will not do anything if `url-show-status' is nil." (setq z (1+ z))) (substring x z nil))) -;;;###autoload -(defun url-pretty-length (n) - (cond - ((< n 1024) - (format "%d bytes" n)) - ((< n (* 1024 1024)) - (format "%dk" (/ n 1024.0))) - (t - (format "%2.2fM" (/ n (* 1024 1024.0)))))) + +(define-obsolete-function-alias 'url-pretty-length + 'file-size-human-readable "24.4") ;;;###autoload (defun url-display-percentage (fmt perc &rest args) |