diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-07-05 22:15:34 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-07-05 22:15:34 +0000 |
| commit | 4b8b1ec5b0231e2140ad136f97321b7dd523624b (patch) | |
| tree | 0048e77fa4ddde081e34d1500d6407ff4f574b70 /lisp/files.el | |
| parent | d6ceb380aac43fcb982efd49988da47ef81cfea8 (diff) | |
| download | emacs-4b8b1ec5b0231e2140ad136f97321b7dd523624b.tar.gz | |
(find-alternate-file-other-window, find-alternate-file):
Obey confirm-nonexistent-file-or-buffer.
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")) |