diff options
| author | John Wiegley | 2003-11-16 09:23:49 +0000 |
|---|---|---|
| committer | John Wiegley | 2003-11-16 09:23:49 +0000 |
| commit | 5a2e4c34bdef6ca75bcbc3e622e0feaf2147dbde (patch) | |
| tree | 08c8947babaeadd9b1906430d7e3a04c77f9d59a | |
| parent | 8ceaf1263329eef1c526dfb8e9ba5bd395adde83 (diff) | |
| download | emacs-5a2e4c34bdef6ca75bcbc3e622e0feaf2147dbde.tar.gz emacs-5a2e4c34bdef6ca75bcbc3e622e0feaf2147dbde.zip | |
(eshell-ls-file): Instead of making the size field in a long-listing
always 8 characters, use `size-width', which has already been
computed.
| -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 aced2223327..1d018026e67 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 8) | 483 | (if (< len size-width) |
| 484 | (concat (make-string (- 8 len) ? ) str) | 484 | (concat (make-string (- size-width len) ? ) str) |
| 485 | str)) | 485 | str)) |
| 486 | " " (format-time-string | 486 | " " (format-time-string |
| 487 | (concat | 487 | (concat |