From ea9e39a02465eb7b2ff9ce59ea7410bb902119f8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Jan 1995 23:45:01 +0000 Subject: [PATCH] (revert-buffer): Recompute buffer-file-truename. --- lisp/files.el | 4 ++++ 1 file changed, 4 insertions(+) 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))))) -- 2.39.5