# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954591805 0
# Node ID b6b552188c57ecdca58711221ba6c20b2a591c43
# Parent  8a724c4f9928af95384a86a755ae715e51c82c5c
(realize_basic_faces): Block input while realizing
the faces.

diff -r 8a724c4f9928 -r b6b552188c57 src/xfaces.c
--- a/src/xfaces.c	Sat Apr 01 12:19:35 2000 +0000
+++ b/src/xfaces.c	Sat Apr 01 12:23:25 2000 +0000
@@ -5585,6 +5585,10 @@
      struct frame *f;
 {
   int success_p = 0;
+
+  /* Block input there so that we won't be surprised by an X expose
+     event, for instance without having the faces set up.  */
+  BLOCK_INPUT;
   
   if (realize_default_face (f))
     {
@@ -5600,6 +5604,7 @@
       success_p = 1;
     }
 
+  UNBLOCK_INPUT;
   return success_p;
 }