From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Jan 1994 19:13:11 +0000 (+0000)
Subject: (revert-buffer): Run after-revert-hook.
X-Git-Tag: emacs-19.34~10227
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fb6208a6aab5ec8482894e6d7b063f02cdc2e464;p=emacs.git

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

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."