Commit 8fb3df59 authored by Gerd Moellmann's avatar Gerd Moellmann

(find-file-suppress-same-file-warnings): New

user-option.
(find-file-noselect): Use it.
parent a01bb1db
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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment