comparison src/window.c @ 983:eb19dfaec9c4

* window.c (window_loop): This used to keep track of the first window processed and wait until we came back around to it. Sadly, this doesn't work if that window gets deleted. So instead, use Fprevious_window to find the last window to process, and loop until we've done that one. * window.c [not MULTI_FRAME] (init_window_once): Don't forget to set the `mini_p' flag on the new minibuffer window to t. * window.c (Fwindow_at): Don't check the type of the frame argument. * window.c [not MULTI_FRAME] (window_loop): Set frame to zero, instead of trying to decode it. * window.c (init_window_once): Initialize minibuf_window before FRAME_ROOT_WINDOW, so the latter actually points to something.

982:595f9517f205

  (row, column, frame)
      Lisp_Object row, column, frame;
{
  int part;

  if (NILP (frame))
    XSET (frame, Lisp_Frame, selected_frame);
  else
    CHECK_LIVE_FRAME (frame, 2);
  CHECK_NUMBER (row, 0);
  CHECK_NUMBER (column, 1);

  return window_from_coordinates (XFRAME (frame),
				  XINT (row), XINT (column),

     int mini;
{
  register Lisp_Object w;
  register Lisp_Object best_window;
  register Lisp_Object next_window;
  register Lisp_Object first_window;
  FRAME_PTR frame;

  /* If we're only looping through windows on a particular frame,
     frame points to that frame.  If we're looping through windows
     on all frames, frame is 0.  */
  if (FRAMEP (frames))
    frame = XFRAME (frames);
  else if (NILP (frames))
    frame = selected_frame;
  else
    frame = 0;

  /* Pick a window to start with.  */
  if (XTYPE (obj) == Lisp_Window)
    first_window = obj;
  else if (frame)
    first_window = FRAME_SELECTED_WINDOW (frame);
  else
    first_window = FRAME_SELECTED_WINDOW (selected_frame);

  w = first_window;
  best_window = Qnil;
  do
    {
      /* Pick the next window now, since some operations will delete
	 the current window.  */
#ifdef MULTI_FRAME
      if (frame)
	next_window = Fnext_window (w, (mini ? Qt : Qnil), Qlambda);
      else
#endif	/* MULTI_FRAME */
	/* We know frame is 0, so we're looping through all frames.
	   Or we know this isn't a MULTI_FRAME Emacs, so who cares?  */
	next_window = Fnext_window (w, mini ? Qt : Qnil, Qt);

      if (!MINI_WINDOW_P (XWINDOW (w))

		if (EQ (w, selected_window))
		  Fset_buffer (XWINDOW (w)->buffer);
	      }
	    break;
	  }
      w = next_window;
    }
  while (! EQ (w, first_window));

  return best_window;
}     

DEFUN ("get-lru-window", Fget_lru_window, Sget_lru_window, 0, 1, 0,

  selected_window = selected_frame->selected_window;
  last_nonminibuf_frame = selected_frame;
#else /* not MULTI_FRAME */
  extern Lisp_Object get_minibuffer ();

  FRAME_ROOT_WINDOW (selected_frame) = make_window ();
  minibuf_window = make_window ();

  XWINDOW (FRAME_ROOT_WINDOW (selected_frame))->next = minibuf_window;
  XWINDOW (minibuf_window)->prev = FRAME_ROOT_WINDOW (selected_frame);

  /* These values 9 and 10 are arbitrary,
     just so that there is "something there."
     Correct values are put in in init_xdisp */

983:eb19dfaec9c4

  (row, column, frame)
      Lisp_Object row, column, frame;
{
  int part;

#ifdef MULTI_FRAME
  if (NILP (frame))
    XSET (frame, Lisp_Frame, selected_frame);
  else
    CHECK_LIVE_FRAME (frame, 2);
#endif
  CHECK_NUMBER (row, 0);
  CHECK_NUMBER (column, 1);

  return window_from_coordinates (XFRAME (frame),
				  XINT (row), XINT (column),

     int mini;
{
  register Lisp_Object w;
  register Lisp_Object best_window;
  register Lisp_Object next_window;
  register Lisp_Object last_window;
  FRAME_PTR frame;

#ifdef MULTI_FRAME
  /* If we're only looping through windows on a particular frame,
     frame points to that frame.  If we're looping through windows
     on all frames, frame is 0.  */
  if (FRAMEP (frames))
    frame = XFRAME (frames);
  else if (NILP (frames))
    frame = selected_frame;
  else
    frame = 0;
#else
  frame = 0;
#endif

  /* Pick a window to start with.  */
  if (XTYPE (obj) == Lisp_Window)
    w = obj;
  else if (frame)
    w = FRAME_SELECTED_WINDOW (frame);
  else
    w = FRAME_SELECTED_WINDOW (selected_frame);

  /* Figure out the last window we're going to mess with.  Since
     Fnext_window, given the same options, is guaranteed to go in a
     ring, we can just use Fprevious_window to find the last one.

     We can't just wait until we hit the first window again, because
     it might be deleted.  */

#ifdef MULTI_FRAME
  if (frame)
    last_window = Fprevious_window (w, (mini ? Qt : Qnil), Qlambda);
  else
#endif	/* MULTI_FRAME */
    /* We know frame is 0, so we're looping through all frames.
       Or we know this isn't a MULTI_FRAME Emacs, so who cares?  */
    last_window = Fprevious_window (w, mini ? Qt : Qnil, Qt);

  best_window = Qnil;
  for (;;)
    {
      /* Pick the next window now, since some operations will delete
	 the current window.  */
#ifdef MULTI_FRAME
      if (frame)
	next_window = Fnext_window (w, (mini ? Qt : Qnil), Qlambda);
      else
#endif				/* MULTI_FRAME */
	/* We know frame is 0, so we're looping through all frames.
	   Or we know this isn't a MULTI_FRAME Emacs, so who cares?  */
	next_window = Fnext_window (w, mini ? Qt : Qnil, Qt);

      if (!MINI_WINDOW_P (XWINDOW (w))

		if (EQ (w, selected_window))
		  Fset_buffer (XWINDOW (w)->buffer);
	      }
	    break;
	  }

      if (EQ (w, last_window))
	break;

      w = next_window;
    }

  return best_window;
}     

DEFUN ("get-lru-window", Fget_lru_window, Sget_lru_window, 0, 1, 0,

  selected_window = selected_frame->selected_window;
  last_nonminibuf_frame = selected_frame;
#else /* not MULTI_FRAME */
  extern Lisp_Object get_minibuffer ();

  minibuf_window = make_window ();
  FRAME_ROOT_WINDOW (selected_frame) = make_window ();

  XWINDOW (FRAME_ROOT_WINDOW (selected_frame))->next = minibuf_window;
  XWINDOW (minibuf_window)->prev = FRAME_ROOT_WINDOW (selected_frame);
  XWINDOW (minibuf_window)->mini_p = Qt;

  /* These values 9 and 10 are arbitrary,
     just so that there is "something there."
     Correct values are put in in init_xdisp */