/[emacs]/emacs/lisp/ls-lisp.el
ViewVC logotype

Diff of /emacs/lisp/ls-lisp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.57 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.58 by eliz, Sat Nov 19 11:38:23 2005 UTC
# Line 588  All ls time options, namely c, t and u, Line 588  All ls time options, namely c, t and u,
588  (defun ls-lisp-format-file-size (file-size human-readable)  (defun ls-lisp-format-file-size (file-size human-readable)
589    (if (or (not human-readable)    (if (or (not human-readable)
590            (< file-size 1024))            (< file-size 1024))
591        (format (if (floatp file-size) " %8.0f" " %8d") file-size)        (format (if (floatp file-size) " %9.0f" " %9d") file-size)
592      (do ((file-size (/ file-size 1024.0) (/ file-size 1024.0))      (do ((file-size (/ file-size 1024.0) (/ file-size 1024.0))
593           ;; kilo, mega, giga, tera, peta, exa           ;; kilo, mega, giga, tera, peta, exa
594           (post-fixes (list "k" "M" "G" "T" "P" "E") (cdr post-fixes)))           (post-fixes (list "k" "M" "G" "T" "P" "E") (cdr post-fixes)))
595          ((< file-size 1024) (format " %7.0f%s"  file-size (car post-fixes))))))          ((< file-size 1024) (format " %8.0f%s"  file-size (car post-fixes))))))
596    
597  (provide 'ls-lisp)  (provide 'ls-lisp)
598    

Legend:
Removed from v.1.57  
changed lines
  Added in v.1.58

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26