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