From 784bc7cdd9b59362d43376c72ce87bce9e519ae9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Dec 2001 18:36:50 +0000 Subject: [PATCH] (temp-buffer-show-hook, temp-buffer-setup-hook): Add defvars. --- lisp/ChangeLog | 2 ++ lisp/subr.el | 13 +++++++++++++ 2 files changed, 15 insertions(+) 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 + * 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 -- 2.39.2