Mercurial > emacs
changeset 73192:206dafef27e7
(find-file-existing): Modified to not allow wildcards.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 30 Sep 2006 10:02:22 +0000 |
| parents | 896cf485f027 |
| children | 445124744ecc |
| files | lisp/files.el |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat Sep 30 09:50:07 2006 +0000 +++ b/lisp/files.el Sat Sep 30 10:02:22 2006 +0000 @@ -1117,13 +1117,15 @@ (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 a file 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-existing (filename) + "Edit the existing file FILENAME. +Like \\[find-file] but only allow a file that exists, and do not allow +file names with wildcards." + (interactive (nbutlast (find-file-read-args "Find existing file: " t))) + (if (and (not (interactive-p)) (not (file-exists-p filename))) + (error "%s does not exist" filename) + (find-file filename) + (current-buffer))) (defun find-file-read-only (filename &optional wildcards) "Edit file FILENAME but don't allow changes.