[Emacs-diffs] emacs/lisp ChangeLog files.el [EMACS_23_1_RC]

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Stefan Monnier <monnier>        09/07/05 22:15:18

Modified files:
        lisp           : ChangeLog files.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.15702.2.14&r2=1.15702.2.15
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.1051&r2=1.1051.2.1

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15702.2.14
retrieving revision 1.15702.2.15
diff -u -b -r1.15702.2.14 -r1.15702.2.15
--- ChangeLog   3 Jul 2009 01:55:40 -0000       1.15702.2.14
+++ ChangeLog   5 Jul 2009 22:15:10 -0000       1.15702.2.15
@@ -1,3 +1,8 @@
+2009-07-05  Stefan Monnier  <address@hidden>
+
+       * files.el (find-alternate-file-other-window, find-alternate-file):
+       Obey confirm-nonexistent-file-or-buffer.
+
 2009-07-03  Jay Belanger  <address@hidden>
 
        * calc-math.el (math-use-emacs-fn): Make sure that the number is
@@ -23,8 +28,8 @@
 2009-07-01  Nick Roberts  <address@hidden>
 
        * 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  <address@hidden>
 
@@ -41,21 +46,20 @@
 
 2009-07-01  Kenichi Handa  <address@hidden>
 
-       * 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  <address@hidden>
 
-       * 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  <address@hidden>
 
        * 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  <address@hidden>
 
@@ -149,8 +153,8 @@
 
 2009-06-17  Kenichi Handa  <address@hidden>
 
-       * 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.

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1051
retrieving revision 1.1051.2.1
diff -u -b -r1.1051 -r1.1051.2.1
--- files.el    18 Jun 2009 06:54:51 -0000      1.1051
+++ files.el    5 Jul 2009 22:15:17 -0000       1.1051.2.1
@@ -1432,7 +1432,8 @@
            (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 @@
          (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"))