Mercurial > emacs
comparison lisp/eshell/em-ls.el @ 64560:8e6e95602853
(eshell-ls-decorated-name): Doc fix.
(eshell-ls-missing, eshell-ls-dired-initial-args, eshell-ls-use-in-dired):
Fix typos in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 21 Jul 2005 10:03:50 +0000 |
| parents | 18a818a2ee7c |
| children | 34bd8e434dd7 187d6a1f84f7 |
comparison
equal
deleted
inserted
replaced
| 64559:4c5dd75702fd | 64560:8e6e95602853 |
|---|---|
| 62 This is useful for enabling human-readable format (-h), for example." | 62 This is useful for enabling human-readable format (-h), for example." |
| 63 :type '(repeat :tag "Arguments" string) | 63 :type '(repeat :tag "Arguments" string) |
| 64 :group 'eshell-ls) | 64 :group 'eshell-ls) |
| 65 | 65 |
| 66 (defcustom eshell-ls-dired-initial-args nil | 66 (defcustom eshell-ls-dired-initial-args nil |
| 67 "*If non-nil, args is included before any call to `ls' in dired. | 67 "*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." | 68 This is useful for enabling human-readable format (-h), for example." |
| 69 :type '(repeat :tag "Arguments" string) | 69 :type '(repeat :tag "Arguments" string) |
| 70 :group 'eshell-ls) | 70 :group 'eshell-ls) |
| 71 | 71 |
| 72 (defcustom eshell-ls-use-in-dired nil | 72 (defcustom eshell-ls-use-in-dired nil |
| 73 "*If non-nil, use `eshell-ls' to read directories in dired." | 73 "*If non-nil, use `eshell-ls' to read directories in Dired." |
| 74 :set (lambda (symbol value) | 74 :set (lambda (symbol value) |
| 75 (if value | 75 (if value |
| 76 (unless (and (boundp 'eshell-ls-use-in-dired) | 76 (unless (and (boundp 'eshell-ls-use-in-dired) |
| 77 eshell-ls-use-in-dired) | 77 eshell-ls-use-in-dired) |
| 78 (fset 'insert-directory 'eshell-ls-insert-directory)) | 78 (fset 'insert-directory 'eshell-ls-insert-directory)) |
| 156 (put 'eshell-ls-special-face 'face-alias 'eshell-ls-special) | 156 (put 'eshell-ls-special-face 'face-alias 'eshell-ls-special) |
| 157 | 157 |
| 158 (defface eshell-ls-missing | 158 (defface eshell-ls-missing |
| 159 '((((class color) (background light)) (:foreground "Red" :weight bold)) | 159 '((((class color) (background light)) (:foreground "Red" :weight bold)) |
| 160 (((class color) (background dark)) (:foreground "Red" :weight bold))) | 160 (((class color) (background dark)) (:foreground "Red" :weight bold))) |
| 161 "*The face used for highlighting non-existant file names." | 161 "*The face used for highlighting non-existent file names." |
| 162 :group 'eshell-ls) | 162 :group 'eshell-ls) |
| 163 ;; backward-compatibility alias | 163 ;; backward-compatibility alias |
| 164 (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing) | 164 (put 'eshell-ls-missing-face 'face-alias 'eshell-ls-missing) |
| 165 | 165 |
| 166 (defcustom eshell-ls-archive-regexp | 166 (defcustom eshell-ls-archive-regexp |
| 861 (nth (+ (* i rows) index) files)) | 861 (nth (+ (* i rows) index) files)) |
| 862 (setq j (1+ j) i (1+ i))) | 862 (setq j (1+ j) i (1+ i))) |
| 863 (cons col-widths newfiles))))) | 863 (cons col-widths newfiles))))) |
| 864 | 864 |
| 865 (defun eshell-ls-decorated-name (file) | 865 (defun eshell-ls-decorated-name (file) |
| 866 "Return FILE, possibly decorated. | 866 "Return FILE, possibly decorated." |
| 867 Use TRUENAME for predicate tests, if passed." | |
| 868 (if eshell-ls-use-colors | 867 (if eshell-ls-use-colors |
| 869 (let ((face | 868 (let ((face |
| 870 (cond | 869 (cond |
| 871 ((not (cdr file)) | 870 ((not (cdr file)) |
| 872 'eshell-ls-missing) | 871 'eshell-ls-missing) |