From: Kenichi Handa <handa@m17n.org>
Date: Tue, 1 Aug 2006 02:56:45 +0000 (+0000)
Subject: (xfont_match): Block and unblock input while callin Xlib.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c6d1df5234817d74c480e52f341173c30c2508b;p=emacs.git

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

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