diff options
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 4 insertions, 0 deletions
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." | |||
| 1969 | (insert-file-contents file-name (not auto-save-p) | 1969 | (insert-file-contents file-name (not auto-save-p) |
| 1970 | nil nil t))) | 1970 | nil nil t))) |
| 1971 | (goto-char (min opoint (point-max))) | 1971 | (goto-char (min opoint (point-max))) |
| 1972 | ;; Recompute the truename in case changes in symlinks | ||
| 1973 | ;; have changed the truename. | ||
| 1974 | (setq buffer-file-truename | ||
| 1975 | (abbreviate-file-name (file-truename buffer-file-name))) | ||
| 1972 | (after-find-file nil nil t t) | 1976 | (after-find-file nil nil t t) |
| 1973 | (run-hooks 'after-revert-hook) | 1977 | (run-hooks 'after-revert-hook) |
| 1974 | t))))) | 1978 | t))))) |