(ftfont_font_format): Don't use strcasestr.

2 files changed, 18 insertions, 8 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 0c1125c9e05..030c2a186bf 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-31  Kenichi Handa  <handa@m17n.org>
+
+        * ftfont.c (ftfont_font_format): Don't use strcasestr.
+
 2008-05-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * chartab.c (Foptimize_char_table, optimize_sub_char_table):
diff --git a/src/ftfont.c b/src/ftfont.c
index 574b7841067..bc8c4406257 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -1707,6 +1707,7 @@ Lisp_Object
 ftfont_font_format (FcPattern *pattern)
 {
   FcChar8 *str;
+  int len;
 
 #ifdef FC_FONTFORMAT
   if (FcPatternGetString (pattern, FC_FONTFORMAT, 0, &str) != FcResultMatch)
@@ -1722,14 +1723,19 @@ ftfont_font_format (FcPattern *pattern)
 #else  /* not FC_FONTFORMAT */
   if (FcPatternGetString (pattern, FC_FILE, 0, &str) != FcResultMatch)
     return Qnil;
-  if (strcasestr ((char *) str, ".ttf") == 0)
-    return intern ("truetype");
-  if (strcasestr ((char *) str, "pfb") == 0)
-    return intern ("type1");
-  if (strcasestr ((char *) str, "pcf") == 0)  
-    return intern ("pcf");
-  if (strcasestr ((char *) str, "bdf") == 0)  
-    return intern ("bdf");
+  len = strlen ((char *) str);
+  if (len >= 4)
+    {
+      str += len - 4;
+      if (xstrcasecmp ((char *) str, ".ttf") == 0)
+        return intern ("truetype");
+      if (xstrcasecmp ((char *) str, "pfb") == 0)
+        return intern ("type1");
+      if (xstrcasecmp ((char *) str, "pcf") == 0)  
+        return intern ("pcf");
+      if (xstrcasecmp ((char *) str, "bdf") == 0)  
+        return intern ("bdf");
+    }
 #endif  /* not FC_FONTFORMAT */
   return intern ("unknown");
 }