Mercurial > emacs

changeset 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 9fac7d5558e9
children e0c580dd4251
files src/xterm.c
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;