Mercurial > emacs
changeset 81732:399ffcb9cf31
(find-file-confirm-nonexistent-file): Rename from
find-file-confirm-inexistent-file. Update users.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 07 Jul 2007 05:28:29 +0000 |
| parents | 6416cbdef0fa |
| children | 039a69853acd |
| files | etc/NEWS lisp/ChangeLog lisp/files.el |
| diffstat | 3 files changed, 11 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Sat Jul 07 04:56:00 2007 +0000 +++ b/etc/NEWS Sat Jul 07 05:28:29 2007 +0000 @@ -34,7 +34,7 @@ * Changes in Emacs 23.1 -** If you set find-file-confirm-inexistent-file to t, then C-x C-f +** If you set find-file-confirm-nonexistent-file to t, then C-x C-f requires confirmation before opening a non-existent file. ** If the gpm mouse server is running and t-mouse-mode enabled, Emacs uses a
--- a/lisp/ChangeLog Sat Jul 07 04:56:00 2007 +0000 +++ b/lisp/ChangeLog Sat Jul 07 05:28:29 2007 +0000 @@ -1,5 +1,8 @@ 2007-07-07 Stefan Monnier <monnier@iro.umontreal.ca> + * files.el (find-file-confirm-nonexistent-file): Rename from + find-file-confirm-inexistent-file. Update users. + * emacs-lisp/autoload.el (autoload-find-destination): Understand a new format of autoload block where the file's time-stamp is replaced by its MD5 checksum.
--- a/lisp/files.el Sat Jul 07 04:56:00 2007 +0000 +++ b/lisp/files.el Sat Jul 07 05:28:29 2007 +0000 @@ -1051,7 +1051,7 @@ ,@body) (remove-hook 'minibuffer-setup-hook ,hook))))) -(defcustom find-file-confirm-inexistent-file nil +(defcustom find-file-confirm-nonexistent-file nil "If non-nil, `find-file' requires confirmation before visiting a new file." :group 'find-file :version "23.1" @@ -1082,7 +1082,7 @@ automatically choosing a major mode, use \\[find-file-literally]." (interactive (find-file-read-args "Find file: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (mapcar 'switch-to-buffer (nreverse value)) @@ -1101,7 +1101,7 @@ expand wildcards (if any) and visit multiple files." (interactive (find-file-read-args "Find file in other window: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (progn @@ -1123,7 +1123,7 @@ expand wildcards (if any) and visit multiple files." (interactive (find-file-read-args "Find file in other frame: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) (progn @@ -1148,7 +1148,7 @@ Use \\[toggle-read-only] to permit editing." (interactive (find-file-read-args "Find file read-only: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (unless (or (and wildcards find-file-wildcards (not (string-match "\\`/:" filename)) (string-match "[[*?]" filename)) @@ -1165,7 +1165,7 @@ Use \\[toggle-read-only] to permit editing." (interactive (find-file-read-args "Find file read-only other window: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (unless (or (and wildcards find-file-wildcards (not (string-match "\\`/:" filename)) (string-match "[[*?]" filename)) @@ -1182,7 +1182,7 @@ Use \\[toggle-read-only] to permit editing." (interactive (find-file-read-args "Find file read-only other frame: " - (if find-file-confirm-inexistent-file 'confirm-only))) + (if find-file-confirm-nonexistent-file 'confirm-only))) (unless (or (and wildcards find-file-wildcards (not (string-match "\\`/:" filename)) (string-match "[[*?]" filename))