# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 796252399 0
# Node ID dc78213dd2b30eeb7a981dcdd57ce4025aae7621
# Parent  020042ee37cdcdd5a99f5281fb5b40ecab8d3ac6
(Fx_popup_menu): Pass 1 for `insist' arg.
(Fx_popup_dialog): Likewise.

diff -r 020042ee37cd -r dc78213dd2b3 src/xmenu.c
--- a/src/xmenu.c	Sun Mar 26 21:13:03 1995 +0000
+++ b/src/xmenu.c	Sun Mar 26 21:13:19 1995 +0000
@@ -732,7 +732,8 @@
 	  unsigned long time;
 
 	  if (mouse_position_hook)
-	    (*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
+	    (*mouse_position_hook) (&new_f, 1, &bar_window,
+				    &part, &x, &y, &time);
 	  if (new_f != 0)
 	    XSETFRAME (window, new_f);
 	  else
@@ -922,7 +923,7 @@
       unsigned long time;
       Lisp_Object x, y;
 
-      (*mouse_position_hook) (&new_f, &bar_window, &part, &x, &y, &time);
+      (*mouse_position_hook) (&new_f, 1, &bar_window, &part, &x, &y, &time);
 
       if (new_f != 0)
 	XSETFRAME (window, new_f);