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

user-option.
(find-file-noselect): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 15486ebc471373ec5fb3923c6d150c3dc38905e0..47b4f2a82ed1b82cead6ff448e4ee1a60975ad2f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 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.

diff --git a/lisp/files.el b/lisp/files.el
index 17c54f69d516b335d2e59832040e68513774845a..58b9a17d4ec8bb808ecf424e0a748afc71005c7c 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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)))