Mercurial > emacs
changeset 10412:ff0b2d5848be
(revert-buffer): Recompute buffer-file-truename.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 Jan 1995 23:45:01 +0000 |
| parents | b3c03881e6f6 |
| children | bfe591f66299 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))