[from rms]

(find-file-noselect-1): Use abbreviate-file-name when setting
buffer-file-truename.

diff --git a/lisp/files.el b/lisp/files.el
index d2ad4d889f6e15fcecbb7f6ca03db2e9ca419193..6d3509acf154964a7281320df9b6324e2ec6e4d1 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1049,7 +1049,8 @@ that are visiting the various files."
       ;; Record the file's truename, and maybe use that as visited name.
       (if (equal filename buffer-file-name)
          (setq buffer-file-truename truename)
-       (setq buffer-file-truename (file-truename buffer-file-name)))
+       (setq buffer-file-truename
+             (abbreviate-file-name (file-truename buffer-file-name))))
       (setq buffer-file-number number)
       ;; On VMS, we may want to remember which directory in a search list
       ;; the file was found in.