# HG changeset patch # User Karl Heuer # Date 801776562 0 # Node ID ea774a7c610c6d8400465bd4dc7d1f074517b71e # Parent b4dd8ca308dd46e6ce26e46510b3fa104b2a6c5b (after-revert-hook, before-revert-hook): Add defvars. diff -r b4dd8ca308dd -r ea774a7c610c lisp/files.el --- a/lisp/files.el Mon May 29 19:41:18 1995 +0000 +++ b/lisp/files.el Mon May 29 19:42:42 1995 +0000 @@ -1952,6 +1952,20 @@ 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.