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
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
