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

(XTmouse_position): New arg `insist'.

Browse source
This commit is contained in:
Richard M. Stallman 1995-03-26 21:12:11 +00:00
parent a40b9bc73e
commit 1cf412ecec
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/xterm.c
View file

@ -2199,8 +2199,9 @@ static void x_scroll_bar_report_motion ();
again. */
static void
XTmouse_position (fp, bar_window, part, x, y, time)
XTmouse_position (fp, insist, bar_window, part, x, y, time)
FRAME_PTR *fp;
int insist;
Lisp_Object *bar_window;
enum scroll_bar_part *part;
Lisp_Object *x, *y;
@ -2321,6 +2322,9 @@ XTmouse_position (fp, bar_window, part, x, y, time)
}
}
if (f1 == 0 && insist)
f1 = selected_frame;
if (f1)
{
int ignore1, ignore2;
@ -2329,7 +2333,8 @@ XTmouse_position (fp, bar_window, part, x, y, time)
pixel_to_glyph_coords (f1, win_x, win_y, &ignore1, &ignore2,
&last_mouse_glyph,
FRAME_X_DISPLAY_INFO (f1)->grabbed);
FRAME_X_DISPLAY_INFO (f1)->grabbed
|| insist);
*bar_window = Qnil;
*part = 0;