6672 |
int FontType; |
int FontType; |
6673 |
enumfont_t * lpef; |
enumfont_t * lpef; |
6674 |
{ |
{ |
6675 |
/* Ignore struck out, underlined and vertical versions of fonts. */ |
/* Ignore struck out and underlined versions of fonts. */ |
6676 |
if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline |
if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline) |
6677 |
|| lplf->elfLogFont.lfEscapement != 0 |
return 1; |
6678 |
|| lplf->elfLogFont.lfOrientation != 0) |
|
6679 |
|
/* Only return fonts with names starting with @ if they were |
6680 |
|
explicitly specified, since Microsoft uses an initial @ to |
6681 |
|
denote fonts for vertical writing, without providing a more |
6682 |
|
convenient way of identifying them. */ |
6683 |
|
if (lplf->elfLogFont.lfFaceName[0] == '@' |
6684 |
|
&& lpef->logfont.lfFaceName[0] != '@') |
6685 |
return 1; |
return 1; |
6686 |
|
|
6687 |
/* Check that the character set matches if it was specified */ |
/* Check that the character set matches if it was specified */ |
6734 |
|
|
6735 |
/* TODO: List all relevant charsets if charset not specified. */ |
/* TODO: List all relevant charsets if charset not specified. */ |
6736 |
if (!w32_to_x_font (&(lplf->elfLogFont), buf, 100, charset)) |
if (!w32_to_x_font (&(lplf->elfLogFont), buf, 100, charset)) |
6737 |
return 0; |
return 1; |
6738 |
|
|
6739 |
if (NILP (*(lpef->pattern)) |
if (NILP (*(lpef->pattern)) |
6740 |
|| w32_font_match (buf, XSTRING (*(lpef->pattern))->data)) |
|| w32_font_match (buf, XSTRING (*(lpef->pattern))->data)) |