mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(revert-buffer): Run after-revert-hook.

Browse source
This commit is contained in:
Richard M. Stallman 1994-01-18 19:13:11 +00:00
parent e4b93bab48
commit fb6208a6aa
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/files.el
View file

@ -1724,7 +1724,9 @@ Optional second argument NOCONFIRM means don't ask for confirmation at
all.
If the value of `revert-buffer-function' is non-nil, it is called to
do the work."
do the work.
The normal hook `after-revert-hook' is run at the end of `revert-buffer'."
;; I admit it's odd to reverse the sense of the prefix argument, but
;; there is a lot of code out there which assumes that the first
;; argument should be t to avoid consulting the auto-save file, and
@ -1774,7 +1776,8 @@ do the work."
(insert-file-contents file-name (not auto-save-p))))
(goto-char (min opoint (point-max)))
(after-find-file nil nil t)
t)))))
t))))
(run-hooks 'after-revert-hook))
(defun recover-file (file)
"Visit file FILE, but get contents from its last auto-save file."