diff options
author | Richard M. Stallman <rms@gnu.org> | 2004-07-25 17:43:57 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2004-07-25 17:43:57 +0000 |
commit | 6487f669677b970c9b486cfeed6b6dff412ecec3 (patch) | |
tree | 77e322d81bf61468bcacf624ce25fde0de0e98b5 /src | |
parent | 81159bb955c88e1315e21be0df6c6cf7f0bd3766 (diff) | |
download | emacs-6487f669677b970c9b486cfeed6b6dff412ecec3.tar.gz |
(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.
Diffstat (limited to 'src')
-rw-r--r-- | src/window.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/window.c b/src/window.c index 8a574becd06..c3603c2039f 100644 --- a/src/window.c +++ b/src/window.c @@ -579,6 +579,8 @@ display margins, fringes, header line, and/or mode line. */) 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 @@ coordinates_in_window (w, x, y) /* 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 @@ If they are in the windows's left or right marginal areas, `left-margin'\n\ 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 (); } |