aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Wiegley2003-11-17 00:24:06 +0000
committerJohn Wiegley2003-11-17 00:24:06 +0000
commit572ccdc0efe92041126b7e2b0f68d3205a8d3aed (patch)
tree96d2478f6afbea4319d445a39bf4e444c9f4ce5f
parent0fe9146b8ab19e8da03cbbdc72c9696a3744ad80 (diff)
downloademacs-572ccdc0efe92041126b7e2b0f68d3205a8d3aed.tar.gz
emacs-572ccdc0efe92041126b7e2b0f68d3205a8d3aed.zip
(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).
-rw-r--r--lisp/eshell/em-ls.el4
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."
480 "")) 480 ""))
481 (let* ((str (eshell-ls-printable-size (nth 7 attrs))) 481 (let* ((str (eshell-ls-printable-size (nth 7 attrs)))
482 (len (length str))) 482 (len (length str)))
483 (if (< len size-width) 483 (if (< len (or size-width 4))
484 (concat (make-string (- size-width len) ? ) str) 484 (concat (make-string (- (or size-width 4) len) ? ) str)
485 str)) 485 str))
486 " " (format-time-string 486 " " (format-time-string
487 (concat 487 (concat