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

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

(find-file-noselect): Use it.
parent a01bb1db
2000-09-19 Gerd Moellmann <>
* files.el (find-file-suppress-same-file-warnings): New
(find-file-noselect): Use it.
* startup.el (fancy-splash-delay, fancy-splash-image): Add
(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
(or nowarn
(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