mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
user-option.
(find-file-noselect): Use it.
This commit is contained in:
Gerd Moellmann 2000-09-19 15:14:42 +00:00
parent a01bb1db13
commit 8fb3df5935
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/files.el
View file

@ -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)))