comparison src/window.c @ 90242:5e2d3828e89f

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-91 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 581-597) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 133-141) - Update from CVS - Merge from emacs--cvs-trunk--0 - Update from CVS: texi/gnus.texi (RSS): Fix key description. - Update from CVS: texi/gnus.texi (Document Server Internals): Addition.

90241:c293a93ebacf

  if (*x < x0 || *x >= x1)
    return ON_NOTHING;

  /* Outside any interesting column?  */
  if (*x < left_x || *x > right_x)
    return ON_SCROLL_BAR;

  lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
  rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);

  text_left = window_box_left (w, TEXT_AREA);

      if (rmargin_width > 0
	  && (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)
	      ? (*x < right_x - WINDOW_RIGHT_FRINGE_WIDTH (w))
	      : (*x >= right_x - rmargin_width)))
	{
	  *x -= right_x;
	  if (!WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w))
	    *x -= WINDOW_RIGHT_FRINGE_WIDTH (w);
	  *y -= top_y;
	  return ON_RIGHT_MARGIN;
	}

      /* Convert X and Y to window-relative pixel coordinates.  */

      *y -= top_y;
      return ON_RIGHT_FRINGE;
    }

  /* Everything special ruled out - must be on text area */
  *x -= left_x + WINDOW_LEFT_FRINGE_WIDTH (w);
  *y -= top_y;
  return ON_TEXT;
}

    return Qnil;
#endif

  if (! NILP (update)
      && ! (! NILP (w->window_end_valid)
	    && XFASTINT (w->last_modified) >= MODIFF))
    {
      struct text_pos startp;
      struct it it;
      struct buffer *old_buffer = NULL, *b = XBUFFER (buf);

/***********************************************************************
			    Window Split Tree
 ***********************************************************************/

static Lisp_Object
window_split_tree (w)
     struct window *w;
{
  Lisp_Object tail = Qnil;
  Lisp_Object result = Qnil;

      Lisp_Object wn;

      XSETWINDOW (wn, w);
      if (!NILP (w->hchild))
	wn = Fcons (Qnil, Fcons (Fwindow_edges (wn),
				 window_split_tree (XWINDOW (w->hchild))));
      else if (!NILP (w->vchild))
	wn = Fcons (Qt, Fcons (Fwindow_edges (wn),
			       window_split_tree (XWINDOW (w->vchild))));

      if (NILP (result))
	{
	  result = tail = Fcons (wn, Qnil);
	}

  return result;
}



DEFUN ("window-split-tree", Fwindow_split_tree, Swindow_split_tree,
       0, 1, 0,
       doc: /* Return the window split tree for frame FRAME.

The return value is a list of the form (ROOT MINI), where ROOT
represents the window split tree of the frame's root window, and MINI
is the frame's minibuffer window.

If the root window is not split, ROOT is the root window itself.
Otherwise, ROOT is a list (DIR EDGES W1 W2 ...) where DIR is nil for a
horisontal split, and t for a vertical split, EDGES gives the combined
size and position of the subwindows in the split, and the rest of the
elements are the subwindows in the split.  Each of the subwindows may
again be a window or a list representing a window split, and so on.
EDGES is a list \(LEFT TOP RIGHT BOTTOM) as returned by `window-edges'.

  f = XFRAME (frame);

  if (!FRAME_LIVE_P (f))
    return Qnil;

  return window_split_tree (XWINDOW (FRAME_ROOT_WINDOW (f)));
}


/***********************************************************************
			    Marginal Areas

  defsubr (&Swindow_configuration_p);
  defsubr (&Swindow_configuration_frame);
  defsubr (&Sset_window_configuration);
  defsubr (&Scurrent_window_configuration);
  defsubr (&Ssave_window_excursion);
  defsubr (&Swindow_split_tree);
  defsubr (&Sset_window_margins);
  defsubr (&Swindow_margins);
  defsubr (&Sset_window_fringes);
  defsubr (&Swindow_fringes);
  defsubr (&Sset_window_scroll_bars);

90242:5e2d3828e89f

  if (*x < x0 || *x >= x1)
    return ON_NOTHING;

  /* Outside any interesting column?  */
  if (*x < left_x || *x > right_x)
    {
      *y -= top_y;
      return ON_SCROLL_BAR;
    }

  lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
  rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);

  text_left = window_box_left (w, TEXT_AREA);

      if (rmargin_width > 0
	  && (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w)
	      ? (*x < right_x - WINDOW_RIGHT_FRINGE_WIDTH (w))
	      : (*x >= right_x - rmargin_width)))
	{
	  *x -= right_x - rmargin_width;
	  if (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w))
	    *x += WINDOW_RIGHT_FRINGE_WIDTH (w);
	  *y -= top_y;
	  return ON_RIGHT_MARGIN;
	}

      /* Convert X and Y to window-relative pixel coordinates.  */

      *y -= top_y;
      return ON_RIGHT_FRINGE;
    }

  /* Everything special ruled out - must be on text area */
  *x -= text_left;
  *y -= top_y;
  return ON_TEXT;
}

    return Qnil;
#endif

  if (! NILP (update)
      && ! (! NILP (w->window_end_valid)
	    && XFASTINT (w->last_modified) >= MODIFF)
      && !noninteractive)
    {
      struct text_pos startp;
      struct it it;
      struct buffer *old_buffer = NULL, *b = XBUFFER (buf);

/***********************************************************************
			    Window Split Tree
 ***********************************************************************/

static Lisp_Object
window_tree (w)
     struct window *w;
{
  Lisp_Object tail = Qnil;
  Lisp_Object result = Qnil;

      Lisp_Object wn;

      XSETWINDOW (wn, w);
      if (!NILP (w->hchild))
	wn = Fcons (Qnil, Fcons (Fwindow_edges (wn),
				 window_tree (XWINDOW (w->hchild))));
      else if (!NILP (w->vchild))
	wn = Fcons (Qt, Fcons (Fwindow_edges (wn),
			       window_tree (XWINDOW (w->vchild))));

      if (NILP (result))
	{
	  result = tail = Fcons (wn, Qnil);
	}

  return result;
}



DEFUN ("window-tree", Fwindow_tree, Swindow_tree,
       0, 1, 0,
       doc: /* Return the window tree for frame FRAME.

The return value is a list of the form (ROOT MINI), where ROOT
represents the window tree of the frame's root window, and MINI
is the frame's minibuffer window.

If the root window is not split, ROOT is the root window itself.
Otherwise, ROOT is a list (DIR EDGES W1 W2 ...) where DIR is nil for a
horizontal split, and t for a vertical split, EDGES gives the combined
size and position of the subwindows in the split, and the rest of the
elements are the subwindows in the split.  Each of the subwindows may
again be a window or a list representing a window split, and so on.
EDGES is a list \(LEFT TOP RIGHT BOTTOM) as returned by `window-edges'.

  f = XFRAME (frame);

  if (!FRAME_LIVE_P (f))
    return Qnil;

  return window_tree (XWINDOW (FRAME_ROOT_WINDOW (f)));
}


/***********************************************************************
			    Marginal Areas

  defsubr (&Swindow_configuration_p);
  defsubr (&Swindow_configuration_frame);
  defsubr (&Sset_window_configuration);
  defsubr (&Scurrent_window_configuration);
  defsubr (&Ssave_window_excursion);
  defsubr (&Swindow_tree);
  defsubr (&Sset_window_margins);
  defsubr (&Swindow_margins);
  defsubr (&Sset_window_fringes);
  defsubr (&Swindow_fringes);
  defsubr (&Sset_window_scroll_bars);