master 0dfe193: Improve the prompting in read-directory-name

[Lars Ingebrigtsen]

branch: master
commit 0dfe193ec42160bfaa30933c5ebfa7ae91cde88b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 5f31bc4..56f7f47 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: