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

1 files changed, 2 insertions, 0 deletions

diff --git a/src/xfont.c b/src/xfont.c
index 1f81657df76..9941fb2655a 100644
--- 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;
 }