From 3eed132b5c468c32369833d81b8379e4680ac6f0 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 21 Jul 2005 10:03:50 +0000 Subject: [PATCH] (eshell-ls-decorated-name): Doc fix. (eshell-ls-missing, eshell-ls-dired-initial-args, eshell-ls-use-in-dired): Fix typos in docstrings. --- lisp/eshell/em-ls.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 514138b6bc2..8ed49ccbd40 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -64,13 +64,13 @@ This is useful for enabling human-readable format (-h), for example." :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 @@ faster and conserves more memory." (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 @@ to use, and each member of which is the width of that column (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 -- 2.39.2