Mercurial > emacs
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 |