diff options
| author | John Wiegley <johnw@newartisans.com> | 2003-11-17 00:24:06 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2003-11-17 00:24:06 +0000 |
| commit | 572ccdc0efe92041126b7e2b0f68d3205a8d3aed (patch) | |
| tree | 96d2478f6afbea4319d445a39bf4e444c9f4ce5f /lisp/eshell/em-ls.el | |
| parent | 0fe9146b8ab19e8da03cbbdc72c9696a3744ad80 (diff) | |
| download | emacs-572ccdc0efe92041126b7e2b0f68d3205a8d3aed.tar.gz | |
(eshell-ls-file): There are times with size-width is nil and
uncomputed (when directories are created in dired, for example); in
this case, 4 is reasonable default value, although it may caused
skewed new entries (which could be avoided by returning the original
value of 8 in all cases, but 99% of the time this is a waste of
whitespace).
Diffstat (limited to 'lisp/eshell/em-ls.el')
| -rw-r--r-- | lisp/eshell/em-ls.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 1d018026e67..3b5252c18a1 100644 --- 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 size-width) - (concat (make-string (- size-width len) ? ) str) + (if (< len (or size-width 4)) + (concat (make-string (- (or size-width 4) len) ? ) str) str)) " " (format-time-string (concat |