# HG changeset patch # User Richard M. Stallman # Date 799807189 0 # Node ID b8d3aea195cd6f58dcdcaf86c0c0faaf19e8ec68 # Parent 084c36d466155f3a8fa8390ba0d842cc9a8dfab4 (syms_of_window): Doc fix. (temp_output_buffer_show): If we use Vtemp_buffer_show_function, do nothing else. diff -r 084c36d46615 -r b8d3aea195cd src/window.c --- a/src/window.c Sun May 07 00:38:42 1995 +0000 +++ b/src/window.c Sun May 07 00:39:49 1995 +0000 @@ -2129,27 +2129,27 @@ XSETFASTINT (w->hscroll, 0); set_marker_restricted (w->start, make_number (1), buf); set_marker_restricted (w->pointm, make_number (1), buf); - } - - /* Run temp-buffer-show-hook, with the chosen window selected. */ - if (!NILP (Vrun_hooks)) - { - Lisp_Object tem; - tem = Fboundp (Qtemp_buffer_show_hook); - if (!NILP (tem)) + + /* Run temp-buffer-show-hook, with the chosen window selected. */ + if (!NILP (Vrun_hooks)) { - tem = Fsymbol_value (Qtemp_buffer_show_hook); + Lisp_Object tem; + tem = Fboundp (Qtemp_buffer_show_hook); if (!NILP (tem)) { - int count = specpdl_ptr - specpdl; - - /* Select the window that was chosen, for running the hook. */ - record_unwind_protect (Fset_window_configuration, - Fcurrent_window_configuration (Qnil)); - - Fselect_window (window); - call1 (Vrun_hooks, Qtemp_buffer_show_hook); - unbind_to (count, Qnil); + tem = Fsymbol_value (Qtemp_buffer_show_hook); + if (!NILP (tem)) + { + int count = specpdl_ptr - specpdl; + + /* Select the window that was chosen, for running the hook. */ + record_unwind_protect (Fset_window_configuration, + Fcurrent_window_configuration (Qnil)); + + Fselect_window (window); + call1 (Vrun_hooks, Qtemp_buffer_show_hook); + unbind_to (count, Qnil); + } } } } @@ -3381,7 +3381,9 @@ DEFVAR_LISP ("temp-buffer-show-function", &Vtemp_buffer_show_function, "Non-nil means call as function to display a help buffer.\n\ The function is called with one argument, the buffer to be displayed.\n\ -Used by `with-output-to-temp-buffer'."); +Used by `with-output-to-temp-buffer'.\n\ +If this function is used, then it must do the entire job of showing\n\ +the buffer; `temp-buffer-show-hook' is not run unless this function runs it."); Vtemp_buffer_show_function = Qnil; DEFVAR_LISP ("display-buffer-function", &Vdisplay_buffer_function,