mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 05:21:37 -07:00
Code Issues Projects Releases Wiki Activity

Produce more accurate results from file-size-human-readable.

Browse source 
lisp/files.el (file-size-human-readable): Produce one digit after
 decimal, like "ls -lh" does.
 lisp/ls-lisp.el (ls-lisp-format-file-size): Allow for 7 characters in
 the file size representation.
This commit is contained in:
Eli Zaretskii 2011-04-09 09:59:26 +03:00
parent d7b898799f
commit 04f33f1ed9
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -12,6 +12,12 @@
2011-04-08 Eli Zaretskii <eliz@gnu.org>
* files.el (file-size-human-readable): Produce one digit after
decimal, like "ls -lh" does.
* ls-lisp.el (ls-lisp-format-file-size): Allow for 7 characters in
the file size representation.
* simple.el (list-processes): If async subprocesses are not
available, error out with a clear error message.

5
lisp/files.el
View file

@ -1162,7 +1162,10 @@ Optional second argument FLAVOR controls the units and the display format:
(while (and (>= file-size power) (cdr post-fixes))
(setq file-size (/ file-size power)
post-fixes (cdr post-fixes)))
(format "%.0f%s%s" file-size
(format (if (> (mod file-size 1.0) 0.05)
"%.1f%s%s"
"%.0f%s%s")
file-size
(if (and (eq flavor 'iec) (string= (car post-fixes) "k"))
"K"
(car post-fixes))

2
lisp/ls-lisp.el
View file

@ -724,7 +724,7 @@ All ls time options, namely c, t and u, are handled."
ls-lisp-filesize-f-fmt
ls-lisp-filesize-d-fmt)
file-size)
(format " %4s" (file-size-human-readable file-size))))
(format " %7s" (file-size-human-readable file-size))))
(provide 'ls-lisp)