# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1090777437 0
# Node ID 6d2d9477f39e73f443c90a621ac83b6bce32a939
# Parent  919c8adb17020ef2a8ed39121666e20d5fcb10b2
(coordinates_in_window): Return ON_SCROLL_BAR
instead of ON_VERTICAL_BORDER, when on scroll bar.
(Fcoordinates_in_window_p): Handle ON_SCROLL_BAR--return nil.

diff -r 919c8adb1702 -r 6d2d9477f39e src/window.c
--- a/src/window.c	Sun Jul 25 17:36:07 2004 +0000
+++ b/src/window.c	Sun Jul 25 17:43:57 2004 +0000
@@ -579,6 +579,8 @@
    if it is on the window's modeline, return ON_MODE_LINE;
    if it is on the border between the window and its right sibling,
       return ON_VERTICAL_BORDER.
+   if it is on a scroll bar,
+      return ON_SCROLL_BAR.
    if it is on the window's top line, return ON_HEADER_LINE;
    if it is in left or right fringe of the window,
       return ON_LEFT_FRINGE or ON_RIGHT_FRINGE, and convert *X and *Y
@@ -673,7 +675,7 @@
 
   /* Outside any interesting column?  */
   if (*x < left_x || *x > right_x)
-    return ON_VERTICAL_BORDER;
+    return ON_SCROLL_BAR;
 
   lmargin_width = window_box_width (w, LEFT_MARGIN_AREA);
   rmargin_width = window_box_width (w, RIGHT_MARGIN_AREA);
@@ -818,6 +820,10 @@
     case ON_RIGHT_MARGIN:
       return Qright_margin;
 
+    case ON_SCROLL_BAR:
+      /* Historically we are supposed to return nil in this case.  */
+      return Qnil;
+
     default:
       abort ();
     }