Sync to HEAD

[bpt/emacs.git] / lisp / eshell / em-ls.el

diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index dc8d09e..3b5252c 100644 (file)
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -480,8 +480,8 @@ whose cdr is the list of file attributes."
                     ""))
                (let* ((str (eshell-ls-printable-size (nth 7 attrs)))
                       (len (length str)))
-                 (if (< len 8)
-                     (concat (make-string (- 8 len) ? ) str)
+                 (if (< len (or size-width 4))
+                     (concat (make-string (- (or size-width 4) len) ? ) str)
                    str))
                " " (format-time-string
                     (concat
@@ -898,4 +898,5 @@ Use TRUENAME for predicate tests, if passed."
 
 ;;; Code:
 
+;;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb
 ;;; em-ls.el ends here