procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* files.el (find-file-existing): New function.

Browse source 
* 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.
This commit is contained in:
Jan Djärv 2004-11-02 07:57:53 +00:00
parent 95ec60bcbf
commit 46bfc73bed
4 changed files with 31 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/files.el
View file

@ -977,6 +977,14 @@ expand wildcards (if any) and visit multiple files."
(mapcar 'switch-to-buffer (cdr value)))
(switch-to-buffer-other-frame value))))
(defun find-file-existing (filename &optional wildcards)
"Edit the existing file FILENAME.
Like \\[find-file] but only allow files that exists."
(interactive (find-file-read-args "Find existing file: " t))
(unless (file-exists-p filename) (error "%s does not exist" filename))
(find-file filename wildcards)
(current-buffer))
(defun find-file-read-only (filename &optional wildcards)
"Edit file FILENAME but don't allow changes.
Like \\[find-file] but marks buffer as read-only.