(set-visited-file-name): Use truename for buffer-file-name.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4759b4400f8ae82698b0018a530a3a84c8168b12..fd525e3bcb098cdbafeb8aa0b236433a9f129d5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-27  Markus Rost  <rost@math.ohio-state.edu>
+
+       * files.el (set-visited-file-name): Use truename for buffer-file-name.
+
 2003-07-26  Markus Rost  <rost@math.ohio-state.edu>
 
        * vc-hooks.el (vc-file-not-found-hook): Doc fix.

diff --git a/lisp/files.el b/lisp/files.el
index c62ef5555d31a7674226031cd406fff6a9474853..5ec82a392066be40a06f8f98835c1546341bf553 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2355,7 +2355,7 @@ the old visited file has been renamed to the new name FILENAME."
        (progn
          (setq buffer-file-truename (abbreviate-file-name truename))
          (if find-file-visit-truename
-             (setq buffer-file-name buffer-file-truename))))
+             (setq buffer-file-name truename))))
     (setq buffer-file-number
          (if filename
              (nthcdr 10 (file-attributes buffer-file-name))