Mercurial > emacs
changeset 5624:76f618230217
(revert-buffer): Run after-revert-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 18 Jan 1994 19:13:11 +0000 |
| parents | d571ad3c796e |
| children | 24f92f49a07f |
| files | lisp/files.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Mon Jan 17 22:43:40 1994 +0000 +++ b/lisp/files.el Tue Jan 18 19:13:11 1994 +0000 @@ -1724,7 +1724,9 @@ 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 @@ (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."