martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve format of values returned by 'file-size-human-readable'

Browse Source 
* lisp/files.el (file-size-human-readable): Emit one digit of the
fractional part of the size only if there's just one digit before
the decimal point.
This commit is contained in:
Eli Zaretskii
2022-02-14 18:59:38 +02:00
parent 3a3387f58e
commit a90dc11e24
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/files.el
View File

@@ -1493,8 +1493,13 @@ in all cases, since that is the standard symbol for byte."
(if (string= prefix "") "" "i")
(or unit "B"))
(concat prefix unit))))
(format (if (and (>= (mod file-size 1.0) 0.05)
;; Mimic what GNU "ls -lh" does:
;; If the formatted size will have just one digit before the decimal...
(format (if (and (< file-size 10)
;; ...and its fractional part is not too small...
(>= (mod file-size 1.0) 0.05)
(< (mod file-size 1.0) 0.95))
;; ...then emit one digit after the decimal.
"%.1f%s%s"
"%.0f%s%s")
file-size