(ls-lisp-format-file-size): Format file size with 9 digits, not 8, to avoid

misalignment for files larger than 100MB.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97131a5f199bbac281f0b393ee9df89715a3fd39..434fb78185d391df6c21390e4bc1dd0b33d1fe71 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-19  Slawomir Nowaczyk  <slawomir.nowaczyk.847@student.lu.se> (tiny change)
+
+       * ls-lisp.el (ls-lisp-format-file-size): Format file size with 9
+       digits, not 8, to avoid misalignment for files larger than 100MB.
+
 2005-11-19  Eli Zaretskii  <eliz@gnu.org>
 
        * menu-bar.el (menu-bar-describe-menu) <list-keybindings>: Mention

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index feadbb5e2be449b4fc6fd8a7efaf492a55760868..5f5a53b0df0d9517fe7490bb7d262a0708b64abf 100644 (file)
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -588,11 +588,11 @@ All ls time options, namely c, t and u, are handled."
 (defun ls-lisp-format-file-size (file-size human-readable)
   (if (or (not human-readable)
           (< file-size 1024))
-      (format (if (floatp file-size) " %8.0f" " %8d") file-size)
+      (format (if (floatp file-size) " %9.0f" " %9d") file-size)
     (do ((file-size (/ file-size 1024.0) (/ file-size 1024.0))
          ;; kilo, mega, giga, tera, peta, exa
          (post-fixes (list "k" "M" "G" "T" "P" "E") (cdr post-fixes)))
-        ((< file-size 1024) (format " %7.0f%s"  file-size (car post-fixes))))))
+        ((< file-size 1024) (format " %8.0f%s"  file-size (car post-fixes))))))
 
 (provide 'ls-lisp)