mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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)))))