Commit a58ec57d authored by Richard M. Stallman's avatar Richard M. Stallman

(Qtemp_buffer_show_hook): New hook.

(syms_of_window): Init and staticpro it.
(temp_output_buffer_show): Run the hook.
parent 346169bf
......@@ -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);
......@@ -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);
/* Make sure all windows get marked */
staticpro (&minibuf_window);
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment