procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make ls-lisp--dired ape dired-noselect more closely

Browse source 
* lisp/ls-lisp.el (ls-lisp--dired): Emulate the behaviour of
non-ls-lisp.el dired better by defaulting to default-directory as
dired-noselect does (bug#35390).
This commit is contained in:
Drew Adams 2019-06-23 19:24:20 +02:00 • committed by Lars Ingebrigtsen
parent 04748e8566
commit bb9d5d0dae
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ls-lisp.el
View file

@ -488,6 +488,8 @@ not contain `d', so that a full listing is expected."
(defun ls-lisp--dired (orig-fun dir-or-list &optional switches)
(interactive (dired-read-dir-and-switches ""))
(unless dir-or-list
(setq dir-or-list default-directory))
(if (consp dir-or-list)
(funcall orig-fun dir-or-list switches)
(let ((dir-wildcard (insert-directory-wildcard-in-dir-p