mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 12:03:55 -08:00
Code Issues Projects Releases Wiki Activity

(font_style_to_value, font_score): Use xstricmp.

Browse source
This commit is contained in:
Jason Rumney 2008-05-22 13:36:30 +00:00
parent 28f4e99c8c
commit 5d3f7fd872
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/font.c
View file

@ -312,7 +312,7 @@ font_style_to_value (prop, val, noerror)
for (j = 1; j < ASIZE (AREF (table, i)); j++)
{
elt = AREF (AREF (table, i), j);
if (strcasecmp (s, (char *) SDATA (SYMBOL_NAME (elt))) == 0)
if (xstricmp (s, (char *) SDATA (SYMBOL_NAME (elt))) == 0)
return ((XINT (AREF (AREF (table, i), 0)) << 8)
| (i << 4) | (j - 1));
}
@ -1981,7 +1981,7 @@ font_score (entity, spec_prop, alternate_families)
Lisp_Object entity_str = SYMBOL_NAME (AREF (entity, i));
Lisp_Object spec_str = SYMBOL_NAME (spec_prop[i]);
if (strcasecmp ((char *) SDATA (spec_str), (char *) SDATA (entity_str)))
if (xstricmp ((char *) SDATA (spec_str), (char *) SDATA (entity_str)))
{
if (i == FONT_FAMILY_INDEX && CONSP (alternate_families))
{
@ -1991,8 +1991,8 @@ font_score (entity, spec_prop, alternate_families)
j++, alternate_families = XCDR (alternate_families))
{
spec_str = XCAR (alternate_families);
if (strcasecmp ((char *) SDATA (spec_str),
(char *) SDATA (entity_str)) == 0)
if (xstricmp ((char *) SDATA (spec_str),
(char *) SDATA (entity_str)) == 0)
break;
}