From 0dfe193ec42160bfaa30933c5ebfa7ae91cde88b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 27 May 2021 01:05:35 +0200 Subject: [PATCH] Improve the prompting in read-directory-name * lisp/dired-x.el (dired-virtual): Improve doc string and use `read-directory-name' (bug#20993). --- lisp/dired-x.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 5f31bc402ff..56f7f4724ac 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -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: -- 2.39.5