Mercurial > emacs

diff lisp/files.el @ 24727:358a330c9931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[from rms] (find-file-noselect-1): Use abbreviate-file-name when setting buffer-file-truename.
author Dave Love <fx@gnu.org>
date Fri, 14 May 1999 09:46:38 +0000
parents 0d75a033fceb
children ece1961bd955
line wrap: on
line diff
--- a/lisp/files.el	Fri May 14 08:47:12 1999 +0000
+++ b/lisp/files.el	Fri May 14 09:46:38 1999 +0000
@@ -1049,7 +1049,8 @@
       ;; 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.