From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Jan 1995 23:45:01 +0000 (+0000)
Subject: (revert-buffer): Recompute buffer-file-truename.
X-Git-Tag: emacs-19.34~5446
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea9e39a02465eb7b2ff9ce59ea7410bb902119f8;p=emacs.git

(revert-buffer): Recompute buffer-file-truename.
---

diff --git a/lisp/files.el b/lisp/files.el
index e36072dca51..f5ab60998eb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1969,6 +1969,10 @@ beginning and `after-revert-hook' at the end."
 		 (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)))))