From 9ab191054504b78970473b5765f716cdf7530162 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 14 May 1999 09:46:38 +0000 Subject: [PATCH] [from rms] (find-file-noselect-1): Use abbreviate-file-name when setting buffer-file-truename. --- lisp/files.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.2