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

* 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).

1 files changed, 2 insertions, 0 deletions

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 1f2c46834ec..66c56f0fcee 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -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