diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-09-29 09:37:03 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-09-29 09:37:03 +0800 |
| commit | 0bf29ba6175b2866fcab4015e865e5008904ed6e (patch) | |
| tree | e6bd546aa2eaf761f02066396ddd40827f3f6ab8 /lisp/url/url-util.el | |
| parent | f046996ea0be2a757297541fab740d306dc087f6 (diff) | |
| download | emacs-0bf29ba6175b2866fcab4015e865e5008904ed6e.tar.gz emacs-0bf29ba6175b2866fcab4015e865e5008904ed6e.tar.bz2 emacs-0bf29ba6175b2866fcab4015e865e5008904ed6e.zip | |
* url/url-util.el (url-pretty-length): Make obsolete and all uses
changed to file-size-human-readable.
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) |