Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
75f6af19
Commit
75f6af19
authored
Jul 07, 2007
by
Stefan Monnier
Browse files
(find-file-confirm-nonexistent-file): Rename from
find-file-confirm-inexistent-file. Update users.
parent
0b7750a9
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
11 additions
and
8 deletions
+11
-8
etc/NEWS
etc/NEWS
+1
-1
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/files.el
lisp/files.el
+7
-7
No files found.
etc/NEWS
View file @
75f6af19
...
...
@@ -34,7 +34,7 @@ a GIF library.
* Changes in Emacs 23.1
** If you set find-file-confirm-
i
nexistent-file to t, then C-x C-f
** If you set find-file-confirm-
no
nexistent-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
...
...
lisp/ChangeLog
View file @
75f6af19
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.
...
...
lisp/files.el
View file @
75f6af19
...
...
@@ -1051,7 +1051,7 @@ Recursive uses of the minibuffer will not be affected."
,@
body
)
(
remove-hook
'minibuffer-setup-hook
,
hook
)))))
(defcustom find-file-confirm-
i
nexistent-file nil
(
defcustom
find-file-confirm-
no
nexistent-file
nil
"If non-nil, `find-file' requires confirmation before visiting a new file."
:group
'find-file
:version
"23.1"
...
...
@@ -1082,7 +1082,7 @@ To visit a file without any kind of conversion and without
automatically choosing a major mode, use \\[find-file-literally]."
(
interactive
(
find-file-read-args
"Find file: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-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 @@ Interactively, or if WILDCARDS is non-nil in a call from Lisp,
expand wildcards (if any) and visit multiple files."
(
interactive
(
find-file-read-args
"Find file in other window: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-file
'confirm-only
)))
(
let
((
value
(
find-file-noselect
filename
nil
nil
wildcards
)))
(
if
(
listp
value
)
(
progn
...
...
@@ -1123,7 +1123,7 @@ Interactively, or if WILDCARDS is non-nil in a call from Lisp,
expand wildcards (if any) and visit multiple files."
(
interactive
(
find-file-read-args
"Find file in other frame: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-file
'confirm-only
)))
(
let
((
value
(
find-file-noselect
filename
nil
nil
wildcards
)))
(
if
(
listp
value
)
(
progn
...
...
@@ -1148,7 +1148,7 @@ Like \\[find-file] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing."
(
interactive
(
find-file-read-args
"Find file read-only: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-file
'confirm-only
)))
(
unless
(
or
(
and
wildcards
find-file-wildcards
(
not
(
string-match
"\\`/:"
filename
))
(
string-match
"[[*?]"
filename
))
...
...
@@ -1165,7 +1165,7 @@ Like \\[find-file-other-window] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing."
(
interactive
(
find-file-read-args
"Find file read-only other window: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-file
'confirm-only
)))
(
unless
(
or
(
and
wildcards
find-file-wildcards
(
not
(
string-match
"\\`/:"
filename
))
(
string-match
"[[*?]"
filename
))
...
...
@@ -1182,7 +1182,7 @@ Like \\[find-file-other-frame] but marks buffer as read-only.
Use \\[toggle-read-only] to permit editing."
(
interactive
(
find-file-read-args
"Find file read-only other frame: "
(if find-file-confirm-
i
nexistent-file 'confirm-only)))
(
if
find-file-confirm-
no
nexistent-file
'confirm-only
)))
(
unless
(
or
(
and
wildcards
find-file-wildcards
(
not
(
string-match
"\\`/:"
filename
))
(
string-match
"[[*?]"
filename
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment