diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-27 01:05:35 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-27 01:05:35 +0200 |
| commit | 0dfe193ec42160bfaa30933c5ebfa7ae91cde88b (patch) | |
| tree | fb294abe49293752ad2669acee65966d80976cc1 /lisp/dired-x.el | |
| parent | 462112ae0b64fa3ea062c4b2635a81495ec132a6 (diff) | |
| download | emacs-0dfe193ec42160bfaa30933c5ebfa7ae91cde88b.tar.gz emacs-0dfe193ec42160bfaa30933c5ebfa7ae91cde88b.tar.bz2 emacs-0dfe193ec42160bfaa30933c5ebfa7ae91cde88b.zip | |
Improve the prompting in read-directory-name
* lisp/dired-x.el (dired-virtual): Improve doc string and use
`read-directory-name' (bug#20993).
Diffstat (limited to 'lisp/dired-x.el')
| -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." (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: |