Mercurial > emacs

changeset 103726:9c7b00651e7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find-alternate-file-other-window, find-alternate-file): Obey confirm-nonexistent-file-or-buffer.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 05 Jul 2009 22:15:34 +0000
parents 53f24cf86ba5
children 3c4fd8432636
files lisp/ChangeLog lisp/files.el
diffstat 2 files changed, 55 insertions(+), 60 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Jul 05 08:32:26 2009 +0000
+++ b/lisp/ChangeLog	Sun Jul 05 22:15:34 2009 +0000
@@ -1,16 +1,20 @@
+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-05  Michael Albinus  <michael.albinus@gmx.de>
 
 	* dired-aux.el (dired-show-file-type): Handle remote files.
 
 2009-03-22  Jari Aalto  <jari.aalto@cante.net>
 
-        * desktop.el (desktop-globals-to-save): Add
-	file-name-history (Bug#2750).
+	* desktop.el (desktop-globals-to-save):
+	Add file-name-history (Bug#2750).
 
 2009-07-05  Chong Yidong  <cyd@stupidchicken.com>
 
-	* add-log.el (add-log-current-defun-header-regexp): Doc
-	fix (Bug#2217).
+	* add-log.el (add-log-current-defun-header-regexp): Doc fix (Bug#2217).
 
 2009-07-04  Johan Bockgård  <bojohan@gnu.org>
 
@@ -29,7 +33,7 @@
 
 2009-07-03  Jan Djärv  <jan.h.d@swipnet.se>
 
-	* cus-start.el (all): Added make-pointer-invisible.
+	* cus-start.el (all): Add make-pointer-invisible.
 
 2009-07-03  Jay Belanger  <jay.p.belanger@gmail.com>
 
@@ -62,10 +66,10 @@
 	(add-to-list)<Info-virtual-nodes>: Add "\\`\\*TOC\\*\\'".
 	(Info-toc): Move part of code to `Info-toc-find-node'.
 	(Info-toc-find-node): New function.
-	(Info-toc-insert): Renamed from `Info-insert-toc'.  Don't insert
+	(Info-toc-insert): Rename from `Info-insert-toc'.  Don't insert
 	the current Info file name to references because now the node
 	"*TOC*" belongs to the same Info manual.
-	(Info-toc-build): Renamed from `Info-build-toc'.
+	(Info-toc-build): Rename from `Info-build-toc'.
 	(Info-toc-nodes): Rename input argument `file' to `filename'.
 	Use Info-virtual-fun, Info-virtual-call and Info-virtual-file-p
 	instead of ad-hoc processing of ("dir" apropos history toc).
@@ -98,8 +102,7 @@
 2009-07-02  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp-gvfs.el (tramp-gvfs-handler-mounted-unmounted)
-	(tramp-gvfs-connection-mounted-p): Handle changed mount-info
-	interface.
+	(tramp-gvfs-connection-mounted-p): Handle changed mount-info interface.
 
 2009-07-02  Kenichi Handa  <handa@m17n.org>
 
@@ -108,14 +111,13 @@
 
 2009-07-01  Michael Albinus  <michael.albinus@gmx.de>
 
-	* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist): Add
-	handler for `process-file', `shell-command' and
+	* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist):
+	Add handler for `process-file', `shell-command' and
 	`start-file-process'.
 	(tramp-gvfs-handle-shell-command)
 	(tramp-gvfs-handle-start-file-process)
 	(tramp-gvfs-handle-process-file): New defuns.
-	(tramp-synce-list-devices): Simplify check for existence of
-	property.
+	(tramp-synce-list-devices): Simplify check for existence of property.
 
 2009-07-01  Jan Djärv  <jan.h.d@swipnet.se>
 
@@ -145,20 +147,19 @@
 
 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.
 
 	* net/tramp-gvfs.el (tramp-gvfs-methods): Add "synce" method.
 	(top): Add a default for "synce" in `tramp-default-user-alist'.
 	Add completion function for "synce" method.
 	(tramp-hal-service, tramp-hal-path-manager)
-	(tramp-hal-interface-manager, tramp-hal-interface-device): New
-	defconst.
-	(tramp-gvfs-connection-mounted-p): Handle empty user name for
-	synce.
-	(tramp-synce-list-devices, tramp-synce-parse-device-names): New
-	defuns.
+	(tramp-hal-interface-manager, tramp-hal-interface-device):
+	New defconst.
+	(tramp-gvfs-connection-mounted-p): Handle empty user name for synce.
+	(tramp-synce-list-devices, tramp-synce-parse-device-names):
+	New defuns.
 
 	* net/trampver.el: Update release number.
 
@@ -167,8 +168,8 @@
 	* international/fontset.el (setup-default-fontset): Add CJK fonts
 	for symbols and the other miscellaneous characters.
 
-	* language/korea-util.el (setup-korean-environment-internal): Make
-	char-widht-table suitable for Korean environments.
+	* language/korea-util.el (setup-korean-environment-internal):
+	Make char-width-table suitable for Korean environments.
 	(exit-korean-environment): Cancel above.
 
 	* language/chinese.el ("Chinese-GB", "Chinese-BIG5")
@@ -193,8 +194,7 @@
 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  Chong Yidong  <cyd@stupidchicken.com>
 
@@ -204,8 +204,7 @@
 2009-06-28  Michael McNamara  <mac@mail.brushroad.com>
 
 	* verilog-mode.el (verilog-beg-of-statement)
-	(verilog-endcomment-reason-re): Support unique case and priority
-	case.
+	(verilog-endcomment-reason-re): Support unique case and priority case.
 	(verilog-basic-complete-re): Support localparam lineup.
 	(verilog-beg-of-statement-1): Fix for robustness, unique case.
 	(verilog-set-auto-endcomments): Fix for unique case, always_comb
@@ -214,8 +213,7 @@
 	priority case statements.
 	(verilog-auto-lineup): Make just declarations the default (as it
 	had been).
-	(verilog-leap-to-case-head): Support priority/unique case
-	statements.
+	(verilog-leap-to-case-head): Support priority/unique case statements.
 	(verilog-auto-lineup): Rework to give users radio buttons to
 	select the various styles of automatic lineup
 	(verilog-error-regexp-alist): Rework to support the XEmacs style
@@ -270,8 +268,8 @@
 
 2009-06-28  Wilson Snyder  <wsnyder@wsnyder.org>
 
-	* verilog-mode.el (verilog-auto-arg, verilog-auto-arg-sort): Allow
-	sorting AUTOARG lists.  Suggested by Andrea Fedeli.
+	* verilog-mode.el (verilog-auto-arg, verilog-auto-arg-sort):
+	Allow sorting AUTOARG lists.  Suggested by Andrea Fedeli.
 	(verilog-read-sub-decls-line): Fix AUTOWIRE signals getting lost
 	in concatenations.  Reported by Yishay Belkind.
 	(verilog-auto-ascii-enum): Support one-hot state machines in
@@ -292,17 +290,16 @@
 	(verilog-make-width-expression): Simplify [A-1:0] expression
 	widths to just {A{1'b0}}.
 	(verilog-mode): Cleanup checkdoc warnings.
-	(verilog-auto-inout-module, verilog-signals-matching-dir-re): Add
-	third optional regexp to AUTOINOUTMODULE to allow selecting only
+	(verilog-auto-inout-module, verilog-signals-matching-dir-re):
+	Add third optional regexp to AUTOINOUTMODULE to allow selecting only
 	inputs/outputs or data type.  Suggested by Vasu Kandadi.
 	(next-error-last-buffer): Fix byte-compiler warning.
 	(verilog-auto, verilog-auto-insert-lisp, verilog-auto-inst)
 	(verilog-delete-auto): Add AUTOINSERTLISP to insert arbitrary lisp
-	or shell command text during AUTO expansion.  Suggested by Tad
-	Truex.
+	or shell command text during AUTO expansion.  Suggested by Tad Truex.
 	(verilog-read-sub-decls-expr, verilog-read-sub-decls-line)
-	(verilog-read-sub-decls-sig, verilog-symbol-detick-text): Fix
-	dotted nets {a.b,c.d} and excaped identifiers being mis-included
+	(verilog-read-sub-decls-sig, verilog-symbol-detick-text):
+	Fix dotted nets {a.b,c.d} and excaped identifiers being mis-included
 	in AUTOINOUT. Reported by Matthew Lovell.
 	(verilog-read-always-signals-recurse): Fix AUTORESET "if (a<=b)"
 	causing use of <= assignments.  Reported by Alex Reed.
@@ -310,8 +307,7 @@
 	recognized by AUTOWIRE.  Reported by Spencer Isaacson.
 	(verilog-extended-complete-re): Support import "DPI-C" functions.
 	(verilog-read-always-signals-recurse): Fix AUTORESET of "x <=
-	y[a+1:a+1]" to not include a in reset list.  Reported by Dan
-	Dever.
+	y[a+1:a+1]" to not include a in reset list.  Reported by Dan Dever.
 	(verilog-insert-date, verilog-insert-year)
 	(verilog-sk-header-tmpl): Fix verilog-header inserting error on
 	Windows systems.  Reported by Michael Potts.
@@ -323,15 +319,15 @@
 	AUTOINSTPARAM.  Reported by Bruce T.
 	(verilog-goto-defun): Fix goto not finding modules unless first
 	perform a verilog-auto expansion. Suggested by Lawrence Butcher.
-        (verilog-mode): Expand -f flag arguments on entry to mode so
+	(verilog-mode): Expand -f flag arguments on entry to mode so
 	verilog-goto-defun will work.  Reported by Lawrence Butcher.
 	(verilog-getopt): Expand environment variables in -f file
 	arguments.  Suggested by Lawrence Butcher.
-        (verilog-set-define): Fix "Symbol's value as variable is void"
+	(verilog-set-define): Fix "Symbol's value as variable is void"
 	when reading enumerations.
 	(verilog-auto-ascii-enum): Fix duplicate labels in AUTOASCIIENUM.
 	Suggested by Stephen Peltan.
-        (verilog-read-defines): Fix reading of enumerations in include
+	(verilog-read-defines): Fix reading of enumerations in include
 	files.  Reported by Steve Peltan.
 
 2009-06-28  David De La Harpe Golden  <david@harpegolden.net>
@@ -388,8 +384,8 @@
 	* textmodes/ispell.el: Add `ispell-looking-back' XEmacs
 	  compatibility function for `looking-back'
 
-	* textmodes/flyspell.el (sgml-mode-flyspell-verify): Use
-	  `ispell-looking-back'
+	* textmodes/flyspell.el (sgml-mode-flyspell-verify):
+	Use `ispell-looking-back'
 
 2009-06-24  Michael Albinus  <michael.albinus@gmx.de>
 
@@ -429,8 +425,8 @@
 	* vc-hooks.el (vc-stay-local-p, vc-state, vc-working-revision):
 	Add an optional argument for the backend, use it instead of
 	calling vc-backend.
-	(vc-mode-line): Add an optional argument for the backend.  Pass
-	the backend to vc-state and vc-working-revision.  Move code for
+	(vc-mode-line): Add an optional argument for the backend.
+	Pass the backend to vc-state and vc-working-revision.  Move code for
 	special handling for vc-state being a buffer to ...
 
 	* vc-rcs.el (vc-rcs-find-file-hook):
@@ -480,14 +476,13 @@
 	(tramp-default-method): Use `tramp-compat-process-running-p'.
 	(tramp-default-proxies-alist): Allow also Lisp forms.
 	(tramp-remote-path): Add choice "Private Directories".
-	(tramp-wrong-passwd-regexp): Remove "Tramp connection closed"
-	option.
+	(tramp-wrong-passwd-regexp): Remove "Tramp connection closed" option.
 	(tramp-domain-regexp): Allow also "-", "_" and ".".
 	(tramp-end-of-output): Remove newlines, and add "$" at the end.
 	(tramp-file-name-handler-alist): Add handler for `dired-uncache'.
 	(tramp-debug-message): Insert header line in debug buffer.
-	(tramp-handle-directory-files-and-attributes-with-stat): Care
-	about filenames with spaces, or starting with "-".
+	(tramp-handle-directory-files-and-attributes-with-stat):
+	Care about filenames with spaces, or starting with "-".
 	(tramp-handle-dired-uncache): New defun.
 	(tramp-handle-insert-directory): Don't flush the directory from
 	cache, this is handled by `dired-uncache' now.
@@ -495,10 +490,8 @@
 	(tramp-find-shell, tramp-open-connection-setup-interactive-shell):
 	Quote `tramp-end-of-output'.
 	(tramp-action-password): Improve trace message.
-	(tramp-check-for-regexp): Both echoes must be present, before
-	removing.
-	(tramp-open-connection-setup-interactive-shell): Trace coding
-	system.
+	(tramp-check-for-regexp): Both echoes must be present, before removing.
+	(tramp-open-connection-setup-interactive-shell): Trace coding system.
 	(tramp-compute-multi-hops): Eval cons cells of
 	`tramp-default-proxies-alist'.
 	(tramp-maybe-open-connection): Use the same command pattern for
@@ -508,8 +501,8 @@
 	(tramp-split-string): Remove function.  It is handled in
 	tramp-compat now.
 
-	* net/tramp-cmds.el (tramp-bug): Recommend
-	`tramp-cleanup-all-connections' in the bug mail.
+	* net/tramp-cmds.el (tramp-bug):
+	Recommend `tramp-cleanup-all-connections' in the bug mail.
 
 	* net/tramp-compat.el (tramp-compat-split-string)
 	(tramp-compat-process-running-p): New defuns.
@@ -519,8 +512,8 @@
 
 	* net/tramp-gvfs.el: New package.
 
-	* net/tramp-smb.el (tramp-smb-file-name-handler-alist): Add
-	handler for `dired-uncache'.
+	* net/tramp-smb.el (tramp-smb-file-name-handler-alist):
+	Add handler for `dired-uncache'.
 	(tramp-smb-handle-file-local-copy): Cleanup in case of error.
 
 	* net/trampver.el: Update release number.  Make version check fit
--- a/lisp/files.el	Sun Jul 05 08:32:26 2009 +0000
+++ b/lisp/files.el	Sun Jul 05 22:15:34 2009 +0000
@@ -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"))