From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 5 Jul 2009 22:15:10 +0000 (+0000)
Subject: (find-alternate-file-other-window, find-alternate-file):
X-Git-Tag: emacs-pretest-23.0.96~27
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88356ae3bf4bdd86284281539ddc1e0a7ab7abaa;p=emacs.git

(find-alternate-file-other-window, find-alternate-file):
Obey confirm-nonexistent-file-or-buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a07328a8303..1589dae7ce8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* files.el (find-alternate-file-other-window, find-alternate-file):
+	Obey confirm-nonexistent-file-or-buffer.
+
 2009-07-03  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc-math.el (math-use-emacs-fn): Make sure that the number is
@@ -23,8 +28,8 @@
 2009-07-01  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-ui.el (gdb-set-header): New function.
-	(gdb-propertize-header): Use it to distinguish select and unselected tabs
-	in gdb buffers.
+	(gdb-propertize-header): Use it to distinguish select and unselected
+	tabs in gdb buffers.
 
 2009-07-01  Glenn Morris  <rgm@gnu.org>
 
@@ -41,21 +46,20 @@
 
 2009-07-01  Kenichi Handa  <handa@m17n.org>
 
-	* international/encoded-kb.el (encoded-kbd-setup-display): Fix
-	typo (encoded-kbd-saved-input-mode ->
+	* international/encoded-kb.el (encoded-kbd-setup-display):
+	Fix typo (encoded-kbd-saved-input-mode ->
 	encoded-kbd-saved-input-meta-mode).
 
 2009-06-30  Michael Albinus  <michael.albinus@gmx.de>
 
-	* net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle
-	also the 'rename case, when setting file modes.  (Bug#3712)
+	* net/tramp.el (tramp-do-copy-or-rename-file-directly):
+	Handle also the 'rename case, when setting file modes.  (Bug#3712)
 	(tramp-default-file-modes) Remove execute permissions.
 
 2009-06-29  Alan Mackenzie  <acm@muc.de>
 
 	* progmodes/cc-cmds.el (c-mask-paragraph): Remove a spurious
-	correction between the visible width of TABs and their number of
-	bytes.
+	correction between the visible width of TABs and their number of bytes.
 
 2009-06-29  Michael Albinus  <michael.albinus@gmx.de>
 
@@ -149,8 +153,8 @@
 
 2009-06-17  Kenichi Handa  <handa@m17n.org>
 
-	* international/mule-diag.el (list-character-sets): Change
-	"FINAL-CHAR" to "FINAL-BYTE" to follow the official terminology.
+	* international/mule-diag.el (list-character-sets):
+	Change "FINAL-CHAR" to "FINAL-BYTE" to follow the official terminology.
 	(list-character-sets-1): Add one line explanation about
 	"supplementary charset".  Make the part "Supplementary Character
 	Sets" clickable.
diff --git a/lisp/files.el b/lisp/files.el
index ff6b6927696..fd3e447461d 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"))