# HG changeset patch # User Juanma Barranquero # Date 1121940230 0 # Node ID 8e6e956028532ee637572c010afacae97dc90d6d # Parent 4c5dd75702fd4b0992ca346b60f23a2751a13a50 (eshell-ls-decorated-name): Doc fix. (eshell-ls-missing, eshell-ls-dired-initial-args, eshell-ls-use-in-dired): Fix typos in docstrings. diff -r 4c5dd75702fd -r 8e6e95602853 lisp/eshell/em-ls.el --- a/lisp/eshell/em-ls.el Thu Jul 21 09:49:07 2005 +0000 +++ b/lisp/eshell/em-ls.el Thu Jul 21 10:03:50 2005 +0000 @@ -64,13 +64,13 @@ :group 'eshell-ls) (defcustom eshell-ls-dired-initial-args nil - "*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. 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." + "*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,7 +158,7 @@ (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." + "*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,8 +863,7 @@ (cons col-widths newfiles))))) (defun eshell-ls-decorated-name (file) - "Return FILE, possibly decorated. -Use TRUENAME for predicate tests, if passed." + "Return FILE, possibly decorated." (if eshell-ls-use-colors (let ((face (cond