# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 789954301 0
# Node ID ff0b2d5848beb55d44b993c1beb92282c356bc21
# Parent  b3c03881e6f6352eaea65778abd3356e90bb5c2a
(revert-buffer): Recompute buffer-file-truename.

diff -r b3c03881e6f6 -r ff0b2d5848be lisp/files.el
--- a/lisp/files.el	Thu Jan 12 23:18:19 1995 +0000
+++ b/lisp/files.el	Thu Jan 12 23:45:01 1995 +0000
@@ -1969,6 +1969,10 @@
 		 (insert-file-contents file-name (not auto-save-p)
 				       nil nil t)))
 	     (goto-char (min opoint (point-max)))
+	     ;; Recompute the truename in case changes in symlinks
+	     ;; have changed the truename.
+	     (setq buffer-file-truename
+		   (abbreviate-file-name (file-truename buffer-file-name)))
 	     (after-find-file nil nil t t)
 	     (run-hooks 'after-revert-hook)
 	     t)))))