# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796252331 0
# Node ID ce63fb361ae937f849d653ca6b02449eeb0dce8f
# Parent  9fac7d5558e9074d6406760c5c24d53bc0bf0d02
(XTmouse_position): New arg `insist'.

diff -r 9fac7d5558e9 -r ce63fb361ae9 src/xterm.c
--- a/src/xterm.c	Sun Mar 26 08:46:09 1995 +0000
+++ b/src/xterm.c	Sun Mar 26 21:12:11 1995 +0000
@@ -2199,8 +2199,9 @@
    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 @@
 	      }
 	  }
 
+	if (f1 == 0 && insist)
+	  f1 = selected_frame;
+
 	if (f1)
 	  {
 	    int ignore1, ignore2;
@@ -2329,7 +2333,8 @@
 
 	    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;