From 9c6d1df5234817d74c480e52f341173c30c2508b Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 1 Aug 2006 02:56:45 +0000
Subject: [PATCH] (xfont_match): Block and unblock input while callin Xlib.

---
 src/xfont.c | 2 ++
 1 file changed, 2 insertions(+)

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;
 }
-- 
2.39.5