diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-10 01:57:54 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-10 01:57:54 +0200 |
| commit | 9ab3f16c460d91aa556eb35085a90f168b10390f (patch) | |
| tree | b65a926dfdb48a2f752bc3bddc6274bde8786dc7 /lisp | |
| parent | ccea37f6ac503d2e94ca3dc0aa1aad079a2cc8d5 (diff) | |
| download | emacs-9ab3f16c460d91aa556eb35085a90f168b10390f.tar.gz emacs-9ab3f16c460d91aa556eb35085a90f168b10390f.tar.bz2 emacs-9ab3f16c460d91aa556eb35085a90f168b10390f.zip | |
Fix formatting of (file-size-human-readable 2047)
* lisp/files.el (file-size-human-readable): Don't format
slightly-less numbers as X.0k, but just Xk instead (bug#36329).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index fdd7c75ced6..a1c7e3c8144 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1419,7 +1419,8 @@ in all cases, since that is the standard symbol for byte." (if (string= prefix "") "" "i") (or unit "B")) (concat prefix unit)))) - (format (if (> (mod file-size 1.0) 0.05) + (format (if (and (>= (mod file-size 1.0) 0.05) + (< (mod file-size 1.0) 0.95)) "%.1f%s%s" "%.0f%s%s") file-size |