(xfont_match): Block and unblock input while callin Xlib.

diff --git a/src/xfont.c b/src/xfont.c
index 1f81657df760c262e93e8cb35b4e93ddc6a57f06..9941fb2655a32b2d09b76915d432df044f52b963 100644 (file)
--- a/src/xfont.c
+++ b/src/xfont.c
@@ -451,6 +451,7 @@ xfont_match (frame, spec)
   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 @@ xfont_match (frame, spec)
        }
       XFreeFont (display, xfont);
     }
+  UNBLOCK_INPUT;
 
   return entity;
 }