From dc79cfa3093e848cdee5fc18fadafda6c7ffddf3 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Tue, 16 Oct 2001 00:55:41 +0000 Subject: [PATCH] (eshell-ls-dired-initial-args): Added an extra customization variable, to differentiate ls-in-dired from regular uses of ls. --- lisp/eshell/em-ls.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 199c176b801..00b426bac4c 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -63,6 +63,12 @@ This is useful for enabling human-readable format (-h), for example." :type '(repeat :tag "Arguments" string) :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) @@ -263,7 +269,7 @@ instead." (let ((insert-func 'insert) (error-func 'insert) (flush-func 'ignore) - eshell-ls-initial-args) + eshell-ls-dired-initial-args) (eshell-do-ls (append switches (list file)))))))) (defsubst eshell/ls (&rest args) -- 2.39.2