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

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

diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index 199c176b801ea89180fc1db7f12cec606c0b5b6b..00b426bac4c0c7d01e318419b18e3ea9e02e105c 100644 (file)
--- 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)