From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 26 Mar 1995 21:13:19 +0000 (+0000)
Subject: (Fx_popup_menu): Pass 1 for `insist' arg.
X-Git-Tag: emacs-19.34~4733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46b657e232cab9945c4d779e5e08283737c99a44;p=emacs.git

(Fx_popup_menu): Pass 1 for `insist' arg.
(Fx_popup_dialog): Likewise.
---

diff --git a/src/xmenu.c b/src/xmenu.c
index 5806a1c1173..02b66b1b85b 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -732,7 +732,8 @@ cached information about equivalent key sequences.")
 	  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 @@ on the left of the dialog box and all following items on the right.\n\
       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);