# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1154401005 0
# Node ID 0af2dbdeaeb3d06f4b44cf700f0f39c69b45a1a3
# Parent  3762a2cc74def8eb38a257b5b6ffb420456e453d
(xfont_match): Block and unblock input while callin Xlib.

diff -r 3762a2cc74de -r 0af2dbdeaeb3 src/xfont.c
--- a/src/xfont.c	Tue Aug 01 02:40:50 2006 +0000
+++ b/src/xfont.c	Tue Aug 01 02:56:45 2006 +0000
@@ -451,6 +451,7 @@
   if (! CONSP (val) || ! STRINGP (XCDR (val)))
     return Qnil;
 
+  BLOCK_INPUT;
   entity = Qnil;
   name = (char *) SDATA (XCDR (val));
   xfont = XLoadQueryFont (display, name);
@@ -478,6 +479,7 @@
 	}
       XFreeFont (display, xfont);
     }
+  UNBLOCK_INPUT;
 
   return entity;
 }