5607 |
char * fontname; |
char * fontname; |
5608 |
char * pattern; |
char * pattern; |
5609 |
{ |
{ |
|
char *font_name_copy; |
|
5610 |
char *ptr; |
char *ptr; |
5611 |
Lisp_Object encoded_font_name; |
char *font_name_copy; |
5612 |
char *regex = alloca (strlen (pattern) * 2 + 3); |
char *regex = alloca (strlen (pattern) * 2 + 3); |
5613 |
|
|
5614 |
/* Convert fontname to unibyte for match. */ |
font_name_copy = alloca (strlen (fontname) + 1); |
5615 |
encoded_font_name = string_make_unibyte (build_string (fontname)); |
strcpy (font_name_copy, fontname); |
|
font_name_copy = SDATA (encoded_font_name); |
|
5616 |
|
|
5617 |
ptr = regex; |
ptr = regex; |
5618 |
*ptr++ = '^'; |
*ptr++ = '^'; |
5650 |
return FALSE; |
return FALSE; |
5651 |
} |
} |
5652 |
|
|
5653 |
return (fast_c_string_match_ignore_case (build_string (regex), |
return (fast_string_match_ignore_case (build_string (regex), |
5654 |
font_name_copy) >= 0); |
build_string(font_name_copy)) >= 0); |
5655 |
} |
} |
5656 |
|
|
5657 |
/* Callback functions, and a structure holding info they need, for |
/* Callback functions, and a structure holding info they need, for |