Mercurial > emacs

diff lisp/eshell/em-ls.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 375f2633d815
children b7da78284d4c
line wrap: on
line diff
--- a/lisp/eshell/em-ls.el	Thu Apr 15 01:08:34 2004 +0000
+++ b/lisp/eshell/em-ls.el	Fri Apr 16 12:51:06 2004 +0000
@@ -480,8 +480,8 @@
 		     ""))
 		(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 @@
 
 ;;; Code:
 
+;;; arch-tag: 9295181c-0cb2-499c-999b-89f5359842cb
 ;;; em-ls.el ends here