mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

Improve the prompting in read-directory-name

Browse source 
* lisp/dired-x.el (dired-virtual): Improve doc string and use
`read-directory-name' (bug#20993).
This commit is contained in:
Lars Ingebrigtsen 2021-05-27 01:05:35 +02:00
parent 462112ae0b
commit 0dfe193ec4
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/dired-x.el
View file

@ -576,7 +576,7 @@ files in the active region if `dired-mark-region' is non-nil."
(defalias 'virtual-dired 'dired-virtual)
(defun dired-virtual (dirname &optional switches)
"Put this buffer into Virtual Dired mode.
"Put this Dired buffer into Virtual Dired mode.
In Virtual Dired mode, all commands that do not actually consult the
filesystem will work.
@ -608,7 +608,8 @@ you can relist single subdirs using \\[dired-do-redisplay]."
;; hand if you want them.
(interactive
(list (read-string "Virtual Dired directory: " (dired-virtual-guess-dir))))
(list (read-directory-name "Virtual Dired directory: "
nil (dired-virtual-guess-dir))))
(goto-char (point-min))
(or (looking-at-p " ")
;; if not already indented, do it now: