diff options
Diffstat (limited to 'lisp/url/url-http.el')
| -rw-r--r-- | lisp/url/url-http.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 838f0a30c1f..9b690778fc0 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -1025,7 +1025,7 @@ should be shown to the user." ;; Function used when we do NOT know how long the document is going to be ;; Just _very_ simple 'downloaded %d' type of info. (url-lazy-message "Reading %s..." - (file-size-human-readable (buffer-size) 'iec " "))) + (funcall byte-count-to-string-function (buffer-size)))) (defun url-http-content-length-after-change-function (_st nd _length) "Function used when we DO know how long the document is going to be. @@ -1038,16 +1038,16 @@ the callback to be triggered." (url-percentage (- nd url-http-end-of-headers) url-http-content-length) url-http-content-type - (file-size-human-readable (- nd url-http-end-of-headers) 'iec " ") - (file-size-human-readable url-http-content-length 'iec " ") + (funcall byte-count-to-string-function (- nd url-http-end-of-headers)) + (funcall byte-count-to-string-function url-http-content-length) (url-percentage (- nd url-http-end-of-headers) url-http-content-length)) (url-display-percentage "Reading... %s of %s (%d%%)" (url-percentage (- nd url-http-end-of-headers) url-http-content-length) - (file-size-human-readable (- nd url-http-end-of-headers) 'iec " ") - (file-size-human-readable url-http-content-length 'iec " ") + (funcall byte-count-to-string-function (- nd url-http-end-of-headers)) + (funcall byte-count-to-string-function url-http-content-length) (url-percentage (- nd url-http-end-of-headers) url-http-content-length))) |