# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969376464 0
# Node ID 187803ce240ebae83b05e55bb202b58fdf69abc9
# Parent  8162eb7a8a9853114acc90822a20daaf1f1f1637
(find-file-suppress-same-file-warnings): New
user-option.
(find-file-noselect): Use it.

diff -r 8162eb7a8a98 -r 187803ce240e lisp/files.el
--- a/lisp/files.el	Tue Sep 19 15:00:29 2000 +0000
+++ b/lisp/files.el	Tue Sep 19 15:14:24 2000 +0000
@@ -966,6 +966,15 @@
   :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 @@
 	(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)))