/[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.20 by lute, Mon Jul 4 17:25:26 2005 UTC revision 1.21 by lektu, Thu Jul 21 10:03:50 2005 UTC
# Line 64  This is useful for enabling human-readab Line 64  This is useful for enabling human-readab
64    :group 'eshell-ls)    :group 'eshell-ls)
65    
66  (defcustom eshell-ls-dired-initial-args nil  (defcustom eshell-ls-dired-initial-args nil
67    "*If non-nil, args is included before any call to `ls' in dired.    "*If non-nil, args is included before any call to `ls' in Dired.
68  This is useful for enabling human-readable format (-h), for example."  This is useful for enabling human-readable format (-h), for example."
69    :type '(repeat :tag "Arguments" string)    :type '(repeat :tag "Arguments" string)
70    :group 'eshell-ls)    :group 'eshell-ls)
71    
72  (defcustom eshell-ls-use-in-dired nil  (defcustom eshell-ls-use-in-dired nil
73    "*If non-nil, use `eshell-ls' to read directories in dired."    "*If non-nil, use `eshell-ls' to read directories in Dired."
74    :set (lambda (symbol value)    :set (lambda (symbol value)
75           (if value           (if value
76               (unless (and (boundp 'eshell-ls-use-in-dired)               (unless (and (boundp 'eshell-ls-use-in-dired)
# Line 158  faster and conserves more memory." Line 158  faster and conserves more memory."
158  (defface eshell-ls-missing  (defface eshell-ls-missing
159    '((((class color) (background light)) (:foreground "Red" :weight bold))    '((((class color) (background light)) (:foreground "Red" :weight bold))
160      (((class color) (background dark)) (:foreground "Red" :weight bold)))      (((class color) (background dark)) (:foreground "Red" :weight bold)))
161    "*The face used for highlighting non-existant file names."    "*The face used for highlighting non-existent file names."
162    :group 'eshell-ls)    :group 'eshell-ls)
163  ;; backward-compatibility alias  ;; backward-compatibility alias
164  (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing)  (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing)
# Line 863  to use, and each member of which is the Line 863  to use, and each member of which is the
863          (cons col-widths newfiles)))))          (cons col-widths newfiles)))))
864    
865  (defun eshell-ls-decorated-name (file)  (defun eshell-ls-decorated-name (file)
866    "Return FILE, possibly decorated.    "Return FILE, possibly decorated."
 Use TRUENAME for predicate tests, if passed."  
867    (if eshell-ls-use-colors    (if eshell-ls-use-colors
868        (let ((face        (let ((face
869               (cond               (cond

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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