Mercurial > emacs

comparison src/xterm.c @ 11122:ce63fb361ae9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(XTmouse_position): New arg `insist'.
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Mar 1995 21:12:11 +0000
parents 3a2547424010
children 95b70c82ec51
comparison
equal deleted inserted replaced
11121:9fac7d5558e9 11122:ce63fb361ae9
2197 movement. This also calls XQueryPointer, which will cause the 2197 movement. This also calls XQueryPointer, which will cause the
2198 server to give us another MotionNotify when the mouse moves 2198 server to give us another MotionNotify when the mouse moves
2199 again. */ 2199 again. */
2200 2200
2201 static void 2201 static void
2202 XTmouse_position (fp, bar_window, part, x, y, time) 2202 XTmouse_position (fp, insist, bar_window, part, x, y, time)
2203 FRAME_PTR *fp; 2203 FRAME_PTR *fp;
2204 int insist;
2204 Lisp_Object *bar_window; 2205 Lisp_Object *bar_window;
2205 enum scroll_bar_part *part; 2206 enum scroll_bar_part *part;
2206 Lisp_Object *x, *y; 2207 Lisp_Object *x, *y;
2207 unsigned long *time; 2208 unsigned long *time;
2208 { 2209 {
2319 win_x = parent_x; 2320 win_x = parent_x;
2320 win_y = parent_y; 2321 win_y = parent_y;
2321 } 2322 }
2322 } 2323 }
2323 2324
2325 if (f1 == 0 && insist)
2326 f1 = selected_frame;
2327
2324 if (f1) 2328 if (f1)
2325 { 2329 {
2326 int ignore1, ignore2; 2330 int ignore1, ignore2;
2327 2331
2328 /* Ok, we found a frame. Store all the values. */ 2332 /* Ok, we found a frame. Store all the values. */
2329 2333
2330 pixel_to_glyph_coords (f1, win_x, win_y, &ignore1, &ignore2, 2334 pixel_to_glyph_coords (f1, win_x, win_y, &ignore1, &ignore2,
2331 &last_mouse_glyph, 2335 &last_mouse_glyph,
2332 FRAME_X_DISPLAY_INFO (f1)->grabbed); 2336 FRAME_X_DISPLAY_INFO (f1)->grabbed
2337 || insist);
2333 2338
2334 *bar_window = Qnil; 2339 *bar_window = Qnil;
2335 *part = 0; 2340 *part = 0;
2336 *fp = f1; 2341 *fp = f1;
2337 XSETINT (*x, win_x); 2342 XSETINT (*x, win_x);