From a58ec57dd21b089203fe2215d4064b5f1f48a674 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Jan 1995 22:13:34 +0000 Subject: [PATCH] (Qtemp_buffer_show_hook): New hook. (syms_of_window): Init and staticpro it. (temp_output_buffer_show): Run the hook. --- src/window.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/window.c b/src/window.c index bb306dd4b8e..9290fd53254 100644 --- a/src/window.c +++ b/src/window.c @@ -88,6 +88,9 @@ Lisp_Object Vspecial_display_regexps; /* Function to pop up a special frame. */ Lisp_Object Vspecial_display_function; +/* Hook run at end of temp_output_buffer_show. */ +Lisp_Object Qtemp_buffer_show_hook; + /* Fdisplay_buffer always splits the largest window if that window is more than this high. */ int split_height_threshold; @@ -2035,6 +2038,9 @@ temp_output_buffer_show (buf) set_marker_restricted (w->start, make_number (1), buf); set_marker_restricted (w->pointm, make_number (1), buf); } + + if (!NILP (Vrun_hooks)) + call1 (Vrun_hooks, Qtemp_buffer_show_hook); } static @@ -3250,6 +3256,9 @@ syms_of_window () Qwindow_live_p = intern ("window-live-p"); staticpro (&Qwindow_live_p); + Qtemp_buffer_show_hook = intern ("Qtemp-buffer-show-hook"); + staticpro (&Qtemp_buffer_show_hook); + #ifndef MULTI_FRAME /* Make sure all windows get marked */ staticpro (&minibuf_window); -- 2.39.5