Mercurial > emacs
comparison lisp/eshell/em-ls.el @ 53066:52b1635cd53f
(eshell-ls-file): Instead of making the size field in a long-listing
always 8 characters, use `size-width', which has already been
computed.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Sun, 16 Nov 2003 09:23:49 +0000 |
| parents | 695cf19ef79e |
| children | 76ece241e712 |
comparison
equal
deleted
inserted
replaced
| 53065:3951aa044134 | 53066:52b1635cd53f |
|---|---|
| 478 group) 8))) | 478 group) 8))) |
| 479 (nth 3 attrs) | 479 (nth 3 attrs) |
| 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 |
| 488 "%b %e " | 488 "%b %e " |
| 489 (if (= (nth 5 (decode-time (current-time))) | 489 (if (= (nth 5 (decode-time (current-time))) |