(max-gid-len 0)
(max-file-size 0)
;; do all bindings here for speed
- total-line files elt short file-size fil attr
+ total-line files elt short file-size attr
fuid fgid uid-len gid-len)
(cond ((memq ?A switches)
(setq file-alist
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)