mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(coordinates_in_window): Check mouse on mode-line or

Browse source 
header-line first.
This commit is contained in:
Gerd Moellmann 2000-12-06 15:19:50 +00:00
parent 46f0206a5f
commit e1d0538761
2 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ChangeLog
View file

@ -1,5 +1,8 @@
2000-12-06 Gerd Moellmann <gerd@gnu.org>
* window.c (coordinates_in_window): Check mouse on mode-line or
header-line first.
* alloc.c (Fgarbage_collect): Dox fix. Return a list as
advertized by the function documentation.

22
src/window.c
View file

@ -524,16 +524,6 @@ coordinates_in_window (w, x, y)
bottom_y = WINDOW_DISPLAY_BOTTOM_EDGE_PIXEL_Y (w);
}
/* Completely outside anything interesting? */
if (*y < top_y
|| *y >= bottom_y
|| *x < (left_x
- flags_area_width
- (FRAME_LEFT_SCROLL_BAR_WIDTH (f)
* CANON_X_UNIT (f)))
|| *x > right_x + flags_area_width)
return ON_NOTHING;
/* On the mode line or header line? If it's near the start of
the mode or header line of window that's has a horizontal
sibling, say it's on the vertical line. That's to be able
@ -541,6 +531,7 @@ coordinates_in_window (w, x, y)
scroll bars. */
if (WINDOW_WANTS_MODELINE_P (w)
&& *y < bottom_y
&& *y >= bottom_y - CURRENT_MODE_LINE_HEIGHT (w))
{
if (!WINDOW_RIGHTMOST_P (w)
@ -552,6 +543,7 @@ coordinates_in_window (w, x, y)
}
if (WINDOW_WANTS_HEADER_LINE_P (w)
&& *y >= top_y
&& *y < top_y + CURRENT_HEADER_LINE_HEIGHT (w))
{
if (!WINDOW_RIGHTMOST_P (w)
@ -562,6 +554,16 @@ coordinates_in_window (w, x, y)
return ON_HEADER_LINE;
}
/* Completely outside anything interesting? */
if (*y < top_y
|| *y >= bottom_y
|| *x < (left_x
- flags_area_width
- (FRAME_LEFT_SCROLL_BAR_WIDTH (f)
* CANON_X_UNIT (f)))
|| *x > right_x + flags_area_width)
return ON_NOTHING;
if (FRAME_WINDOW_P (f))
{
if (!w->pseudo_window_p