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

2 files changed, 15 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8172b60ba7d..85ed8b4c7b1 100644
--- 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 6296d6a9bb5..f34db188a0f 100644
--- 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