mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 22:50:29 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-01-12 23:45:01 +00:00
parent 4cab507406
commit ea9e39a024
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -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)))))