diff src/xmenu.c @ 9236:583bb9211b2b

(popup_get_selection): Remove BLOCK_INPUT, UNBLOCK_INPUT since the calls to popup_get_selection() provide the protection.

--- a/src/xmenu.c	Sun Oct 02 20:11:07 1994 +0000
+++ b/src/xmenu.c	Sun Oct 02 21:23:53 1994 +0000
@@ -153,7 +153,7 @@
 static int menu_items_submenu_depth;
 
 /* Flag which when set indicates a dialog or menu has been posted by
-   Xt on behalf of one of the widget sets. */
+   Xt on behalf of one of the widget sets.  */
 static int popup_activated_flag;
 
 
@@ -337,7 +337,7 @@
   if (! EQ (def1, def)
       /* If the command is an alias for another
          (such as easymenu.el and lmenu.el set it up),
-         check if the original command matches the cached command. */
+         check if the original command matches the cached command.  */
       && !(SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function)
            && EQ (def1, XSYMBOL (def)->function))
       /* If something had no key binding before, don't recheck it--
@@ -1001,7 +1001,10 @@
 #ifdef USE_X_TOOLKIT
 
 /* Loop in Xt until the menu pulldown or dialog popup has been
-   popped down (deactivated). */
+   popped down (deactivated).
+
+   NOTE: All calls to popup_get_selection() should be protected
+   with BLOCK_INPUT, UNBLOCK_INPUT wrappers.  */
 void
 popup_get_selection (initial_event)
      XEvent *initial_event;
@@ -1015,16 +1018,14 @@
 
   while (1)
     {
-      BLOCK_INPUT;
       XtDispatchEvent (&event);
-      UNBLOCK_INPUT;
       if (!popup_activated())
 	break;
       XtAppNextEvent (Xt_app_con, &event);
     }
 }
 
-/* Detect if a dialog or menu has been posted. */
+/* Detect if a dialog or menu has been posted.  */
 int
 popup_activated ()
 {
@@ -1129,7 +1130,7 @@
 }
 
 /* This callback is invoked when a dialog or menu is finished being
-   used and has been unposted. */
+   used and has been unposted.  */
 
 static void
 popup_deactivate_callback (widget, id, client_data)
@@ -1357,7 +1358,7 @@
       XtVaSetValues (x->menubar_widget, XtNmappedWhenManaged, 1, 0);
     }
 
-  /* Re-manage the text-area widget, and then thrash the sizes. */
+  /* Re-manage the text-area widget, and then thrash the sizes.  */
   XtManageChild (x->edit_widget);
   lw_refigure_widget (x->column_widget, True);
 
@@ -1425,7 +1426,7 @@
 	 menu trees we supply, rather than just the menu bar item names.  */
       lw_modify_all_widgets (id, first_wv, 1);
 
-      /* Re-enable the edit widget to resize. */
+      /* Re-enable the edit widget to resize.  */
       lw_allow_resizing (f->display.x->widget, True);
     }
   else
@@ -1745,7 +1746,7 @@
 	}
     }
 
-  /* Deal with the title, if it is non-nil. */
+  /* Deal with the title, if it is non-nil.  */
   if (!NILP (title))
     {
       widget_value *wv_title = malloc_widget_value ();