diff options
| author | Richard M. Stallman | 2007-07-03 02:54:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-07-03 02:54:27 +0000 |
| commit | ad3d50ef6dccf338a598332e4e7a11f477458b34 (patch) | |
| tree | ec4eeb2902bab8ce3df1a9bfac41ed92d855ef95 | |
| parent | 789cb0f9549dc03dec0bb6715ad6c900b233c61f (diff) | |
| download | emacs-ad3d50ef6dccf338a598332e4e7a11f477458b34.tar.gz emacs-ad3d50ef6dccf338a598332e4e7a11f477458b34.zip | |
(find-file-confirm-inexistent-file): Make it a defcustom.
Make nil the default.
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index f6fd82d0462..873eeee7199 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1051,8 +1051,11 @@ Recursive uses of the minibuffer will not be affected." | |||
| 1051 | ,@body) | 1051 | ,@body) |
| 1052 | (remove-hook 'minibuffer-setup-hook ,hook))))) | 1052 | (remove-hook 'minibuffer-setup-hook ,hook))))) |
| 1053 | 1053 | ||
| 1054 | (defvar find-file-confirm-inexistent-file t | 1054 | (defcustom find-file-confirm-inexistent-file nil |
| 1055 | "If non-nil, `find-file' will require confirmation before visiting a new file.") | 1055 | "If non-nil, `find-file' requires confirmation before visiting a new file." |
| 1056 | :group 'find-file | ||
| 1057 | :version "23.1" | ||
| 1058 | :type 'boolean) | ||
| 1056 | 1059 | ||
| 1057 | (defun find-file-read-args (prompt mustmatch) | 1060 | (defun find-file-read-args (prompt mustmatch) |
| 1058 | (list (let ((find-file-default | 1061 | (list (let ((find-file-default |