Mercurial > emacs

diff src/xfns.c @ 49117:f8288cd7d1cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jan Djärv <jan.h.d@swipnet.se>
date Wed, 08 Jan 2003 20:06:05 +0000
parents ec331b35847e
children 2cbb0b823e83
line wrap: on
line diff
--- a/src/xfns.c	Wed Jan 08 20:06:05 2003 +0000
+++ b/src/xfns.c	Wed Jan 08 20:06:05 2003 +0000
@@ -11649,18 +11649,14 @@
       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;
+  /* Process events until the user presses Cancel or OK.  */
   result = 0;
   while (result == 0)
     {
-      BLOCK_INPUT;
-      XtAppProcessEvent (Xt_app_con, XtIMAll);
-      UNBLOCK_INPUT;
-    }
-  BLOCK_INPUT;
+      XEvent event;
+      XtAppNextEvent (Xt_app_con, &event);
+      x_dispatch_event (&event, FRAME_X_DISPLAY (f) );
+    }
 
   /* Get the result.  */
   if (result == XmCR_OK)