# HG changeset patch # User Stefan Monnier # Date 1246832134 0 # Node ID 9c7b00651e7c62a60c21baff696da1aaec5eda68 # Parent 53f24cf86ba519344ae6ae9f525fdf3d2168daf7 (find-alternate-file-other-window, find-alternate-file): Obey confirm-nonexistent-file-or-buffer. diff -r 53f24cf86ba5 -r 9c7b00651e7c lisp/ChangeLog --- 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 + + * files.el (find-alternate-file-other-window, find-alternate-file): + Obey confirm-nonexistent-file-or-buffer. + 2009-07-05 Michael Albinus * dired-aux.el (dired-show-file-type): Handle remote files. 2009-03-22 Jari Aalto - * 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 - * 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 @@ -29,7 +33,7 @@ 2009-07-03 Jan Djärv - * cus-start.el (all): Added make-pointer-invisible. + * cus-start.el (all): Add make-pointer-invisible. 2009-07-03 Jay Belanger @@ -62,10 +66,10 @@ (add-to-list): 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 * 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 @@ -108,14 +111,13 @@ 2009-07-01 Michael Albinus - * 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 @@ -145,20 +147,19 @@ 2009-06-30 Michael Albinus - * 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 * 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 @@ -204,8 +204,7 @@ 2009-06-28 Michael McNamara * 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 - * 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 @@ -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 @@ -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 diff -r 53f24cf86ba5 -r 9c7b00651e7c lisp/files.el --- 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"))