(eshell-ls-dired-initial-args): Added an extra customization variable,

to differentiate ls-in-dired from regular uses of ls.

1 files changed, 7 insertions, 1 deletions

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)