comparison src/window.c @ 84357:7a92dcd56a24

(Vsplit_window_preferred_function): New var. (Fdisplay_buffer): Use it. (syms_of_window): Export, and initialize it.

84356:357b5ff720d4

/* Fdisplay_buffer always splits the largest window
   if that window is more than this high.  */

EMACS_INT split_height_threshold;

/* Number of lines of continuity in scrolling by screenfuls.  */

EMACS_INT next_screen_context_lines;

      /* If the current frame is a special display frame,
	 don't try to reuse its windows.  */
      || !NILP (XWINDOW (FRAME_ROOT_WINDOW (f))->dedicated))
    {
      Lisp_Object frames;

      frames = Qnil;
      if (FRAME_MINIBUF_ONLY_P (f))
	XSETFRAME (frames, last_nonminibuf_frame);

	  && WINDOW_FULL_WIDTH_P (XWINDOW (window))
	  && (window_height (window) >= split_height_threshold
	      || (NILP (XWINDOW (window)->parent)))
	  && (window_height (window)
	      >= (2 * window_min_size_2 (XWINDOW (window), 0))))
	window = Fsplit_window (window, Qnil, Qnil);
      else
	{
	  Lisp_Object upper, lower, other;

	  window = Fget_lru_window (frames, Qt);
	  /* If the LRU window is tall enough, and either eligible for splitting
	  and selected or the only window, split it.  */
	  if (!NILP (window)
	      && ! FRAME_NO_SPLIT_P (XFRAME (XWINDOW (window)->frame))
	      && ((EQ (window, selected_window)
		   && window_height (window) >= split_height_threshold)
		  || (NILP (XWINDOW (window)->parent)))
	      && (window_height (window)
		  >= (2 * window_min_size_2 (XWINDOW (window), 0))))
	    window = Fsplit_window (window, Qnil, Qnil);
	  else
	    window = Fget_lru_window (frames, Qnil);
	  /* If Fget_lru_window returned nil, try other approaches.  */

	  /* Try visible frames first.  */

	      enlarge_window (upper,
			      total / 2 - XFASTINT (XWINDOW (upper)->total_lines),
			      0);
	    }
	}
    }
  else
    window = Fget_lru_window (Qnil, Qnil);

  Fset_window_buffer (window, buffer, Qnil);

  DEFVAR_INT ("split-height-threshold", &split_height_threshold,
	      doc: /* *A window must be at least this tall to be eligible for splitting
by `display-buffer'.  The value is in line units.
If there is only one window, it is split regardless of this value.  */);
  split_height_threshold = 500;

  DEFVAR_INT ("window-min-height", &window_min_height,
	      doc: /* *Delete any window less than this tall (including its mode line).
The value is in line units. */);
  window_min_height = 4;

84357:7a92dcd56a24

/* Fdisplay_buffer always splits the largest window
   if that window is more than this high.  */

EMACS_INT split_height_threshold;

/* How to split windows (horizontally/vertically/hybrid).  */

Lisp_Object Vsplit_window_preferred_function;

/* Number of lines of continuity in scrolling by screenfuls.  */

EMACS_INT next_screen_context_lines;

      /* If the current frame is a special display frame,
	 don't try to reuse its windows.  */
      || !NILP (XWINDOW (FRAME_ROOT_WINDOW (f))->dedicated))
    {
      Lisp_Object frames;
      struct gcpro gcpro1;
      GCPRO1 (buffer);

      frames = Qnil;
      if (FRAME_MINIBUF_ONLY_P (f))
	XSETFRAME (frames, last_nonminibuf_frame);

	  && WINDOW_FULL_WIDTH_P (XWINDOW (window))
	  && (window_height (window) >= split_height_threshold
	      || (NILP (XWINDOW (window)->parent)))
	  && (window_height (window)
	      >= (2 * window_min_size_2 (XWINDOW (window), 0))))
	window = call1 (Vsplit_window_preferred_function, window);
      else
	{
	  Lisp_Object upper, lower, other;

	  window = Fget_lru_window (frames, Qt);
	  /* If the LRU window is tall enough, and either eligible for
	     splitting and selected or the only window, split it.  */
	  if (!NILP (window)
	      && ! FRAME_NO_SPLIT_P (XFRAME (XWINDOW (window)->frame))
	      && ((EQ (window, selected_window)
		   && window_height (window) >= split_height_threshold)
		  || (NILP (XWINDOW (window)->parent)))
	      && (window_height (window)
		  >= (2 * window_min_size_2 (XWINDOW (window), 0))))
	    window = call1 (Vsplit_window_preferred_function, window);
	  else
	    window = Fget_lru_window (frames, Qnil);
	  /* If Fget_lru_window returned nil, try other approaches.  */

	  /* Try visible frames first.  */

	      enlarge_window (upper,
			      total / 2 - XFASTINT (XWINDOW (upper)->total_lines),
			      0);
	    }
	}
      UNGCPRO;
    }
  else
    window = Fget_lru_window (Qnil, Qnil);

  Fset_window_buffer (window, buffer, Qnil);

  DEFVAR_INT ("split-height-threshold", &split_height_threshold,
	      doc: /* *A window must be at least this tall to be eligible for splitting
by `display-buffer'.  The value is in line units.
If there is only one window, it is split regardless of this value.  */);
  split_height_threshold = 500;

  DEFVAR_LISP ("split-window-preferred-function",
	       &Vsplit_window_preferred_function,
	       doc: /* Function to use to split a window.
This is used by `display-buffer' to allow the user to choose whether
to split windows horizontally or vertically or some mix of the two.
It is called with a window as single argument and should split it in two
and return the new window.  */);
  Vsplit_window_preferred_function = intern ("split-window");

  DEFVAR_INT ("window-min-height", &window_min_height,
	      doc: /* *Delete any window less than this tall (including its mode line).
The value is in line units. */);
  window_min_height = 4;