2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 97131a5f199..434fb78185d 100644
--- 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 feadbb5e2be..5f5a53b0df0 100644
--- 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)