Mercurial > emacs
changeset 10461:d3dee0c530d6
(Qtemp_buffer_show_hook): New hook.
(syms_of_window): Init and staticpro it.
(temp_output_buffer_show): Run the hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Jan 1995 22:13:34 +0000 |
| parents | b2e37a1d2347 |
| children | 8a21a21c3163 |
| files | src/window.c |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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);