From fb6208a6aab5ec8482894e6d7b063f02cdc2e464 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 18 Jan 1994 19:13:11 +0000 Subject: [PATCH] (revert-buffer): Run after-revert-hook. --- lisp/files.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 457a8e58a88..ad797857e6e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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." -- 2.39.5