(find-buffer-visiting): Compare file attributes using buffer-file-truename.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19ea7df341280a21370b3f097779f56cc201f240..a20a02044bbd32c5df2d41e0ada05ed5f8f0d888 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2002-08-28  Luc Teirlinck  <teirllm@mail.auburn.edu>
+
+        * files.el (find-buffer-visiting): Compare file attributes
+       using buffer-file-truename.
+
+2002-08-28  Richard M. Stallman  <rms@gnu.org>
+
+       * files.el (make-auto-save-file-name, make-backup-file-name-1): 
+       Don't use directory-sep-char.
+
 2002-08-28  Juanma Barranquero  <lektu@terra.es>
 
        * replace.el (occur-hook): Renamed from `occur-mode-hook'.

diff --git a/lisp/files.el b/lisp/files.el
index 0cb3fddecea8c1b8da496cb70f863a3492a44647..0983762356c361e1017dc6a7effc8f73ad24e2e9 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1076,7 +1076,7 @@ If there is no such live buffer, return nil."
                            ;; Verify this buffer's file number
                            ;; still belongs to its file.
                            (file-exists-p buffer-file-name)
-                           (equal (file-attributes buffer-file-name)
+                           (equal (file-attributes buffer-file-truename)
                                   attributes))
                       (setq found (car list))))
                 (setq list (cdr list))))