comparison src/xfont.c @ 90569:0af2dbdeaeb3

(xfont_match): Block and unblock input while callin Xlib.
author Kenichi Handa <handa@m17n.org>
date Tue, 01 Aug 2006 02:56:45 +0000
parents 73750c4e078a
children 9a7955701103
comparison
equal deleted inserted replaced
90568:3762a2cc74de 90569:0af2dbdeaeb3
449 extra = AREF (spec, FONT_EXTRA_INDEX); 449 extra = AREF (spec, FONT_EXTRA_INDEX);
450 val = assq_no_quit (QCname, extra); 450 val = assq_no_quit (QCname, extra);
451 if (! CONSP (val) || ! STRINGP (XCDR (val))) 451 if (! CONSP (val) || ! STRINGP (XCDR (val)))
452 return Qnil; 452 return Qnil;
453 453
454 BLOCK_INPUT;
454 entity = Qnil; 455 entity = Qnil;
455 name = (char *) SDATA (XCDR (val)); 456 name = (char *) SDATA (XCDR (val));
456 xfont = XLoadQueryFont (display, name); 457 xfont = XLoadQueryFont (display, name);
457 if (xfont) 458 if (xfont)
458 { 459 {
476 } 477 }
477 XFree (name); 478 XFree (name);
478 } 479 }
479 XFreeFont (display, xfont); 480 XFreeFont (display, xfont);
480 } 481 }
482 UNBLOCK_INPUT;
481 483
482 return entity; 484 return entity;
483 } 485 }
484 486
485 static int 487 static int