(font_style_to_value, font_score): Use xstricmp.

diff --git a/src/font.c b/src/font.c
index 84f2a2ac867e334e6f334b48613c59c4ecb3e68c..11be985651243e7b9c1927009328471ad1a90e07 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -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;
 
                  }