diff options
| -rw-r--r-- | lisp/dired-x.el | 5 |
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." | |||
| 576 | 576 | ||
| 577 | (defalias 'virtual-dired 'dired-virtual) | 577 | (defalias 'virtual-dired 'dired-virtual) |
| 578 | (defun dired-virtual (dirname &optional switches) | 578 | (defun dired-virtual (dirname &optional switches) |
| 579 | "Put this buffer into Virtual Dired mode. | 579 | "Put this Dired buffer into Virtual Dired mode. |
| 580 | 580 | ||
| 581 | In Virtual Dired mode, all commands that do not actually consult the | 581 | In Virtual Dired mode, all commands that do not actually consult the |
| 582 | filesystem will work. | 582 | filesystem will work. |
| @@ -608,7 +608,8 @@ you can relist single subdirs using \\[dired-do-redisplay]." | |||
| 608 | ;; hand if you want them. | 608 | ;; hand if you want them. |
| 609 | 609 | ||
| 610 | (interactive | 610 | (interactive |
| 611 | (list (read-string "Virtual Dired directory: " (dired-virtual-guess-dir)))) | 611 | (list (read-directory-name "Virtual Dired directory: " |
| 612 | nil (dired-virtual-guess-dir)))) | ||
| 612 | (goto-char (point-min)) | 613 | (goto-char (point-min)) |
| 613 | (or (looking-at-p " ") | 614 | (or (looking-at-p " ") |
| 614 | ;; if not already indented, do it now: | 615 | ;; if not already indented, do it now: |