Mercurial > emacs

changeset 38548:58603538f196

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fx_file_dialog): Block/unblock input while processing events so that we get a chance of processing expose events.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 25 Jul 2001 12:45:10 +0000
parents 0810268a51b3
children a8043437bc18
files src/xfns.c
diffstat 1 files changed, 10 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Wed Jul 25 12:04:25 2001 +0000
+++ b/src/xfns.c	Wed Jul 25 12:45:10 2001 +0000
@@ -11256,10 +11256,18 @@
       XmListSetPos (list, item_pos);
     }
 
-  /* Process events until the user presses Cancel or OK.  */
+  /* 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)
-    XtAppProcessEvent (Xt_app_con, XtIMAll);
+    {
+      BLOCK_INPUT;
+      XtAppProcessEvent (Xt_app_con, XtIMAll);
+      UNBLOCK_INPUT;
+    }
+  BLOCK_INPUT;
 
   /* Get the result.  */
   if (result == XmCR_OK)