From 5f76e7d492047bd9a96c374bbf61979f990f75cf Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 29 May 1995 19:42:42 +0000 Subject: [PATCH] (after-revert-hook, before-revert-hook): Add defvars. --- lisp/files.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/lisp/files.el b/lisp/files.el index 4b68d391ff5..28e9485b6e6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1952,6 +1952,20 @@ which are the arguments that `revert-buffer' received.") Gets two args, first the nominal file name to use, and second, t if reading the auto-save file.") +(defvar before-revert-hook nil + "Normal hook for `revert-buffer' to run before reverting. +If `revert-buffer-function' is used to override the normal revert +mechanism, this hook is not used.") + +(defvar after-revert-hook nil + "Normal hook for `revert-buffer' to run after reverting. +Note that the hook value that it runs is the value that was in effect +before reverting; that makes a difference if you have buffer-local +hook functions. + +If `revert-buffer-function' is used to override the normal revert +mechanism, this hook is not used.") + (defun revert-buffer (&optional ignore-auto noconfirm) "Replace the buffer text with the text of the visited file on disk. This undoes all changes since the file was visited or saved. -- 2.39.2