From bb9d5d0dae299b201be2523a064078accbc76d47 Mon Sep 17 00:00:00 2001 From: Drew Adams Date: Sun, 23 Jun 2019 19:24:20 +0200 Subject: 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). --- lisp/ls-lisp.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/ls-lisp.el') 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 -- cgit v1.2.3