[Emacs-diffs] Changes to emacs/lisp/eshell/em-ls.el

[Juanma Barranquero]

Index: emacs/lisp/eshell/em-ls.el
diff -c emacs/lisp/eshell/em-ls.el:1.20 emacs/lisp/eshell/em-ls.el:1.21
*** emacs/lisp/eshell/em-ls.el:1.20     Mon Jul  4 17:25:26 2005
--- emacs/lisp/eshell/em-ls.el  Thu Jul 21 10:03:50 2005
***************
*** 64,76 ****
    :group 'eshell-ls)
  
  (defcustom eshell-ls-dired-initial-args nil
!   "*If non-nil, args is included before any call to `ls' in dired.
  This is useful for enabling human-readable format (-h), for example."
    :type '(repeat :tag "Arguments" string)
    :group 'eshell-ls)
  
  (defcustom eshell-ls-use-in-dired nil
!   "*If non-nil, use `eshell-ls' to read directories in dired."
    :set (lambda (symbol value)
         (if value
             (unless (and (boundp 'eshell-ls-use-in-dired)
--- 64,76 ----
    :group 'eshell-ls)
  
  (defcustom eshell-ls-dired-initial-args nil
!   "*If non-nil, args is included before any call to `ls' in Dired.
  This is useful for enabling human-readable format (-h), for example."
    :type '(repeat :tag "Arguments" string)
    :group 'eshell-ls)
  
  (defcustom eshell-ls-use-in-dired nil
!   "*If non-nil, use `eshell-ls' to read directories in Dired."
    :set (lambda (symbol value)
         (if value
             (unless (and (boundp 'eshell-ls-use-in-dired)
***************
*** 158,164 ****
  (defface eshell-ls-missing
    '((((class color) (background light)) (:foreground "Red" :weight bold))
      (((class color) (background dark)) (:foreground "Red" :weight bold)))
!   "*The face used for highlighting non-existant file names."
    :group 'eshell-ls)
  ;; backward-compatibility alias
  (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing)
--- 158,164 ----
  (defface eshell-ls-missing
    '((((class color) (background light)) (:foreground "Red" :weight bold))
      (((class color) (background dark)) (:foreground "Red" :weight bold)))
!   "*The face used for highlighting non-existent file names."
    :group 'eshell-ls)
  ;; backward-compatibility alias
  (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing)
***************
*** 863,870 ****
        (cons col-widths newfiles)))))
  
  (defun eshell-ls-decorated-name (file)
!   "Return FILE, possibly decorated.
! Use TRUENAME for predicate tests, if passed."
    (if eshell-ls-use-colors
        (let ((face
             (cond
--- 863,869 ----
        (cons col-widths newfiles)))))
  
  (defun eshell-ls-decorated-name (file)
!   "Return FILE, possibly decorated."
    (if eshell-ls-use-colors
        (let ((face
             (cond