From a522e5bffeb2a9a1ac9f4639eb360ec21ecb4677 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 5 Jul 1994 07:23:18 +0000
Subject: [PATCH] (set-visited-file-name): Handle find-file-visit-truename
 early on, before we deal with lock files.

---
 lisp/files.el | 63 +++++++++++++++++++++++++++------------------------
 1 file changed, 34 insertions(+), 29 deletions(-)

diff --git a/lisp/files.el b/lisp/files.el
index acc00097464..66f3ac21721 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1172,35 +1172,40 @@ nil or empty string as argument means make buffer not be visiting any file.
 Remember to delete the initial contents of the minibuffer
 if you wish to pass an empty string as the argument."
   (interactive "FSet visited file name: ")
-  (if filename
-      (setq filename
-	    (if (string-equal filename "")
-		nil
-	      (expand-file-name filename))))
-  (or (equal filename buffer-file-name)
-      (progn
-	(and filename (lock-buffer filename))
-	(unlock-buffer)))
-  (setq buffer-file-name filename)
-  (if filename				; make buffer name reflect filename.
-      (let ((new-name (file-name-nondirectory buffer-file-name)))
-	(if (string= new-name "")
-	    (error "Empty file name"))
-	(if (eq system-type 'vax-vms)
-	    (setq new-name (downcase new-name)))
-	(setq default-directory (file-name-directory buffer-file-name))
-	(or (string= new-name (buffer-name))
-	    (rename-buffer new-name t))))
-  (setq buffer-backed-up nil)
-  (clear-visited-file-modtime)
-  (if filename
-      (progn
-	(setq buffer-file-truename
-	      (abbreviate-file-name (file-truename buffer-file-name)))
-	(if find-file-visit-truename
-	    (setq buffer-file-name buffer-file-truename))
-	(setq buffer-file-number (nth 10 (file-attributes buffer-file-name))))
-    (setq buffer-file-truename nil buffer-file-number nil))
+  (let (truename)
+    (if filename
+	(setq filename
+	      (if (string-equal filename "")
+		  nil
+		(expand-file-name filename))))
+    (if filename
+	(progn
+	  (setq truename (file-truename filename))
+	  (if find-file-visit-truename
+	      ;; Do not use the abbreviated filename, because
+	      ;; write-region will reset it to the expanded filename
+	      (setq filename truename))))
+    (or (equal filename buffer-file-name)
+	(progn
+	  (and filename (lock-buffer filename))
+	  (unlock-buffer)))
+    (setq buffer-file-name filename)
+    (if filename			; make buffer name reflect filename.
+	(let ((new-name (file-name-nondirectory buffer-file-name)))
+	  (if (string= new-name "")
+	      (error "Empty file name"))
+	  (if (eq system-type 'vax-vms)
+	      (setq new-name (downcase new-name)))
+	  (setq default-directory (file-name-directory buffer-file-name))
+	  (or (string= new-name (buffer-name))
+	      (rename-buffer new-name t))))
+    (setq buffer-backed-up nil)
+    (clear-visited-file-modtime)
+    (setq buffer-file-truename (abbreviate-file-name truename))
+    (setq buffer-file-number
+	  (if filename
+	      (nth 10 (file-attributes buffer-file-name))
+	      nil)))
   ;; write-file-hooks is normally used for things like ftp-find-file
   ;; that visit things that are not local files as if they were files.
   ;; Changing to visit an ordinary local file instead should flush the hook.
-- 
2.39.5