Improve the prompting in read-directory-name

* lisp/dired-x.el (dired-virtual): Improve doc string and use
`read-directory-name' (bug#20993).

1 files 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: