(temp-buffer-show-hook, temp-buffer-setup-hook): Add defvars.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8172b60ba7dc3fa7fcab6ef41ad909051a836228..85ed8b4c7b1fe786084b5ba5ec667516c43ca559 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-12-16  Richard M. Stallman  <rms@gnu.org>
 
+       * subr.el (temp-buffer-show-hook, temp-buffer-setup-hook): Add defvars.
+
        * startup.el (command-line-1): Display startup screen
        even if there are command line args.
        Add a note about how to go to editing your files. 

diff --git a/lisp/subr.el b/lisp/subr.el
index 6296d6a9bb5a98641e51c7aaffea032500cac69a..f34db188a0f9eb81b282f04b1954e35f9e18a543 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1084,6 +1084,19 @@ Overlays might be moved and or split."
 (defvar suspend-resume-hook nil
   "Normal hook run by `suspend-emacs', after Emacs is continued.")
 
+(defvar temp-buffer-show-hook nil
+  "Normal hook run by `with-output-to-temp-buffer' after displaying the buffer.
+When the hook runs, the temporary buffer is current, and the window it
+was displayed in is selected.  This hook is normally set up with a
+function to make the buffer read only, and find function names and
+variable names in it, provided the major mode is still Help mode.")
+
+(defvar temp-buffer-setup-hook nil
+  "Normal hook run by `with-output-to-temp-buffer' at the start.
+When the hook runs, the temporary buffer is current.
+This hook is normally set up with a function to put the buffer in Help
+mode.")
+
 ;; Avoid compiler warnings about this variable,
 ;; which has a special meaning on certain system types.
 (defvar buffer-file-type nil