diff options
| author | Drew Adams <drew.adams@oracle.com> | 2019-06-23 19:24:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-23 19:24:20 +0200 |
| commit | bb9d5d0dae299b201be2523a064078accbc76d47 (patch) | |
| tree | af135be0e38a0c17df4986a7c5d58f7ed4a69d52 /lisp/ls-lisp.el | |
| parent | 04748e85660b5686cba5528c44db1f8554f31583 (diff) | |
| download | emacs-bb9d5d0dae299b201be2523a064078accbc76d47.tar.gz emacs-bb9d5d0dae299b201be2523a064078accbc76d47.tar.bz2 emacs-bb9d5d0dae299b201be2523a064078accbc76d47.zip | |
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).
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 2 |
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 |