mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
to differentiate ls-in-dired from regular uses of ls.
This commit is contained in:
John Wiegley 2001-10-17 02:00:00 +00:00
parent af15ae259a
commit ef94bd99e4
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/eshell/em-ls.el
View file

@ -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)