/[emacs]/emacs/lisp/eshell/em-ls.el
ViewVC logotype

Diff of /emacs/lisp/eshell/em-ls.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12.4.2 by miles, Tue Oct 14 23:51:31 2003 UTC revision 1.12.4.3 by miles, Fri Nov 21 00:36:07 2003 UTC
# Line 480  whose cdr is the list of file attributes Line 480  whose cdr is the list of file attributes
480                       ""))                       ""))
481                  (let* ((str (eshell-ls-printable-size (nth 7 attrs)))                  (let* ((str (eshell-ls-printable-size (nth 7 attrs)))
482                         (len (length str)))                         (len (length str)))
483                    (if (< len 8)                    (if (< len (or size-width 4))
484                        (concat (make-string (- 8 len) ? ) str)                        (concat (make-string (- (or size-width 4) len) ? ) str)
485                      str))                      str))
486                  " " (format-time-string                  " " (format-time-string
487                       (concat                       (concat

Legend:
Removed from v.1.12.4.2  
changed lines
  Added in v.1.12.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26