# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790467214 0
# Node ID d3dee0c530d6e308c04e9384369f17a66b1fa6d5
# Parent  b2e37a1d2347ba5b4c6786291ab6863f752df793
(Qtemp_buffer_show_hook): New hook.
(syms_of_window): Init and staticpro it.
(temp_output_buffer_show): Run the hook.

diff -r b2e37a1d2347 -r d3dee0c530d6 src/window.c
--- a/src/window.c	Wed Jan 18 22:12:32 1995 +0000
+++ b/src/window.c	Wed Jan 18 22:13:34 1995 +0000
@@ -88,6 +88,9 @@
 /* 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 @@
       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 @@
   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);