[Emacs-diffs] Changes to emacs/src/xfns.c

[Kenichi Handa]

Index: emacs/src/xfns.c
diff -c emacs/src/xfns.c:1.568 emacs/src/xfns.c:1.569
*** emacs/src/xfns.c:1.568      Mon Jan  6 10:21:37 2003
--- emacs/src/xfns.c    Wed Jan  8 15:06:05 2003
***************
*** 11649,11666 ****
        XmListSetPos (list, item_pos);
      }
  
!   /* Process events until the user presses Cancel or OK.  Block
!      and unblock input here so that we get a chance of processing
!      expose events.  */
!   UNBLOCK_INPUT;
    result = 0;
    while (result == 0)
      {
!       BLOCK_INPUT;
!       XtAppProcessEvent (Xt_app_con, XtIMAll);
!       UNBLOCK_INPUT;
      }
-   BLOCK_INPUT;
  
    /* Get the result.  */
    if (result == XmCR_OK)
--- 11649,11662 ----
        XmListSetPos (list, item_pos);
      }
  
!   /* Process events until the user presses Cancel or OK.  */
    result = 0;
    while (result == 0)
      {
!       XEvent event;
!       XtAppNextEvent (Xt_app_con, &event);
!       x_dispatch_event (&event, FRAME_X_DISPLAY (f) );
      }
  
    /* Get the result.  */
    if (result == XmCR_OK)