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
8fb3df59
Commit
8fb3df59
authored
Sep 19, 2000
by
Gerd Moellmann
Browse files
(find-file-suppress-same-file-warnings): New
user-option. (find-file-noselect): Use it.
parent
a01bb1db
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
0 deletions
+14
-0
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/files.el
lisp/files.el
+10
-0
No files found.
lisp/ChangeLog
View file @
8fb3df59
2000-09-19 Gerd Moellmann <gerd@gnu.org>
* files.el (find-file-suppress-same-file-warnings): New
user-option.
(find-file-noselect): Use it.
* startup.el (fancy-splash-delay, fancy-splash-image): Add
:version.
(fancy-splash-screen): Defgroup.
...
...
lisp/files.el
View file @
8fb3df59
...
...
@@ -966,6 +966,15 @@ whose names match the pattern."
:version
"20.4"
:type
'boolean
)
(
defcustom
find-file-suppress-same-file-warnings
nil
"*Non-nil means suppress warning messages for symlinked files.
When nil, Emacs prints a warning when visiting a file that is already
visited, but with a different name. Setting this option to t
suppresses this warning "
:group
'files
:version
"21.1"
:type
'boolean
)
(
defun
find-file-noselect
(
filename
&optional
nowarn
rawfile
wildcards
)
"Read file FILENAME into a buffer and return the buffer.
If a buffer exists visiting FILENAME, return that one, but
...
...
@@ -1008,6 +1017,7 @@ that are visiting the various files."
(
if
other
(
progn
(
or
nowarn
find-file-suppress-same-file-warnings
(
string-equal
filename
(
buffer-file-name
other
))
(
message
"%s and %s are the same file"
filename
(
buffer-file-name
other
)))
...
...
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