# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1090076342 0
# Node ID 7f86a9a896858511e58e35cc49c8d16c24ba7b88
# Parent  66c2afb52fc1c51684de7e7177a718de2fae14d0
(coordinates_in_window): Inside the window but outside
its box to the L or R, return ON_VERTICAL_BORDER.
(window_list_1): Rotate the list to start with WINDOW.

diff -r 66c2afb52fc1 -r 7f86a9a89685 src/window.c
--- a/src/window.c	Sat Jul 17 14:54:56 2004 +0000
+++ b/src/window.c	Sat Jul 17 14:59:02 2004 +0000
@@ -670,7 +670,7 @@
 
   /* Outside any interesting column?  */
   if (*x < left_x || *x > right_x)
-    return ON_NOTHING;
+    return ON_VERTICAL_BORDER;
 
   lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
   rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);
@@ -1799,7 +1799,7 @@
 window_list_1 (window, minibuf, all_frames)
      Lisp_Object window, minibuf, all_frames;
 {
-  Lisp_Object tail, list;
+  Lisp_Object tail, list, rest;
 
   decode_next_window_args (&window, &minibuf, &all_frames);
   list = Qnil;
@@ -1808,7 +1808,17 @@
     if (candidate_window_p (XCAR (tail), window, minibuf, all_frames))
       list = Fcons (XCAR (tail), list);
 
-  return Fnreverse (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;
 }