From: Dave Love <fx@gnu.org>
Date: Fri, 14 May 1999 09:46:38 +0000 (+0000)
Subject: [from rms]
X-Git-Tag: emacs-20.4~222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ab191054504b78970473b5765f716cdf7530162;p=emacs.git

[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 d2ad4d889f6..6d3509acf15 100644
--- 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.