diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2004-11-02 07:57:53 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2004-11-02 07:57:53 +0000 |
| commit | 46bfc73bed2e2b6b3cdfff43f82c6705fb89355c (patch) | |
| tree | fb8175d3c78aecf36b01e4749de6728af0411b84 /lisp/dired.el | |
| parent | 95ec60bcbf3f89bd6c72c989a3510da8c0b96f9a (diff) | |
| download | emacs-46bfc73bed2e2b6b3cdfff43f82c6705fb89355c.tar.gz | |
* files.el (find-file-existing): New function.
* menu-bar.el (menu-bar-files-menu): Make "Open File..." call
find-file-existing. Add "New File..." that calls find-file.
* dired.el (dired-read-dir-and-switches): Call read-driectory-name
instead of read-file-name.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 96b2905337e..c0fc33729c2 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -546,7 +546,7 @@ Optional third argument FILTER, if non-nil, is a function to select (if current-prefix-arg (read-string "Dired listing switches: " dired-listing-switches)) - (read-file-name (format "Dired %s(directory): " str) + (read-directory-name (format "Dired %s(directory): " str) nil default-directory nil)))) ;;;###autoload (define-key ctl-x-map "d" 'dired) |