diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index e2fe19c29c0..10970aa7d78 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1432,7 +1432,8 @@ expand wildcards (if any) and replace the file with multiple files." (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (list (read-file-name - "Find alternate file: " file-dir nil nil file-name) + "Find alternate file: " file-dir nil + (confirm-nonexistent-file-or-buffer) file-name) t)))) (if (one-window-p) (find-file-other-window filename wildcards) @@ -1461,7 +1462,8 @@ killed." (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (list (read-file-name - "Find alternate file: " file-dir nil nil file-name) + "Find alternate file: " file-dir nil + (confirm-nonexistent-file-or-buffer) file-name) t))) (unless (run-hook-with-args-until-failure 'kill-buffer-query-functions) (error "Aborted")) |