comparison src/window.c @ 11731:b8d3aea195cd

(syms_of_window): Doc fix. (temp_output_buffer_show): If we use Vtemp_buffer_show_function, do nothing else.

11730:084c36d46615

      Vminibuf_scroll_window = window;
      w = XWINDOW (window);
      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))
	{
	  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);
	    }
	}
    }
}


#endif

  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'.");
  Vtemp_buffer_show_function = Qnil;

  DEFVAR_LISP ("display-buffer-function", &Vdisplay_buffer_function,
    "If non-nil, function to call to handle `display-buffer'.\n\
It will receive two args, the buffer and a flag which if non-nil means\n\

11731:b8d3aea195cd

      Vminibuf_scroll_window = window;
      w = XWINDOW (window);
      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))
	    {
	      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);
		}
	    }
	}
    }
}


#endif

  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'.\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,
    "If non-nil, function to call to handle `display-buffer'.\n\
It will receive two args, the buffer and a flag which if non-nil means\n\