[Emacs-diffs] Changes to emacs/src/window.c

[Richard M . Stallman]

Index: emacs/src/window.c
diff -c emacs/src/window.c:1.469 emacs/src/window.c:1.470
*** emacs/src/window.c:1.469    Sun Jul 11 01:20:03 2004
--- emacs/src/window.c  Sat Jul 17 14:59:02 2004
***************
*** 670,676 ****
  
    /* Outside any interesting column?  */
    if (*x < left_x || *x > right_x)
!     return ON_NOTHING;
  
    lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
    rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);
--- 670,676 ----
  
    /* Outside any interesting column?  */
    if (*x < left_x || *x > right_x)
!     return ON_VERTICAL_BORDER;
  
    lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
    rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);
***************
*** 1799,1805 ****
  window_list_1 (window, minibuf, all_frames)
       Lisp_Object window, minibuf, all_frames;
  {
!   Lisp_Object tail, list;
  
    decode_next_window_args (&window, &minibuf, &all_frames);
    list = Qnil;
--- 1799,1805 ----
  window_list_1 (window, minibuf, all_frames)
       Lisp_Object window, minibuf, all_frames;
  {
!   Lisp_Object tail, list, rest;
  
    decode_next_window_args (&window, &minibuf, &all_frames);
    list = Qnil;
***************
*** 1808,1814 ****
      if (candidate_window_p (XCAR (tail), window, minibuf, all_frames))
        list = Fcons (XCAR (tail), list);
  
!   return Fnreverse (list);
  }
  
  
--- 1808,1824 ----
      if (candidate_window_p (XCAR (tail), window, minibuf, all_frames))
        list = Fcons (XCAR (tail), list);
  
!   /* Rotate the list to start with WINDOW.  */
!   list = Fnreverse (list);
!   rest = Fmemq (window, list);
!   if (!NILP (rest) && !EQ (rest, list))
!     {
!       for (tail = list; XCDR (tail) != rest; tail = XCDR (tail))
!       ;
!       XSETCDR (tail, Qnil);
!       list = nconc2 (rest, list);
!     }
!   return list;
  }