procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(revert-buffer): Don't preserve point here.

Browse source 
(revert-buffer-insert-file-contents-function): Doc fix.
This commit is contained in:
Richard M. Stallman 1999-07-05 22:49:45 +00:00
parent 8f3c1d763f
commit 2df32500ab
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/files.el
View file

@ -2657,7 +2657,9 @@ which are the arguments that `revert-buffer' received.")
(defvar revert-buffer-insert-file-contents-function nil
"Function to use to insert contents when reverting this buffer.
Gets two args, first the nominal file name to use,
and second, t if reading the auto-save file.")
and second, t if reading the auto-save file.
The function you specify is responsible for updating (or preserving) point.")
(defvar before-revert-hook nil
"Normal hook for `revert-buffer' to run before reverting.
@ -2714,8 +2716,7 @@ non-nil, it is called instead of rereading visited file contents."
(interactive (list (not current-prefix-arg)))
(if revert-buffer-function
(funcall revert-buffer-function ignore-auto noconfirm)
(let* ((opoint (point))
(auto-save-p (and (not ignore-auto)
(let* ((auto-save-p (and (not ignore-auto)
(recent-auto-save-p)
buffer-auto-save-file-name
(file-readable-p buffer-auto-save-file-name)
@ -2771,9 +2772,9 @@ non-nil, it is called instead of rereading visited file contents."
;; any code conversion.
(if auto-save-p 'no-conversion
coding-system-for-read)))
;; Note that this preserves point in an intelligent way.
(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