comparison src/w32fns.c @ 57872:71ea49de0560

Use fast_string_match_ignore_case for comparing font names.

57871:da430e282e25

static BOOL
w32_font_match (fontname, pattern)
    char * fontname;
    char * pattern;
{
  char *font_name_copy;
  char *ptr;
  Lisp_Object encoded_font_name;
  char *regex = alloca (strlen (pattern) * 2 + 3);

  /* Convert fontname to unibyte for match.  */
  encoded_font_name = string_make_unibyte (build_string (fontname));
  font_name_copy = SDATA (encoded_font_name);

  ptr = regex;
  *ptr++ = '^';

  /* Turn pattern into a regexp and do a regexp match.  */

       if the heights differ.  */
    if (font_height && pattern_height && (font_height != pattern_height))
      return FALSE;
  }

  return (fast_c_string_match_ignore_case (build_string (regex),
                                           font_name_copy) >= 0);
}

/* Callback functions, and a structure holding info they need, for
   listing system fonts on W32. We need one set of functions to do the
   job properly, but these don't work on NT 3.51 and earlier, so we

57872:71ea49de0560

static BOOL
w32_font_match (fontname, pattern)
    char * fontname;
    char * pattern;
{
  char *ptr;
  char *font_name_copy;
  char *regex = alloca (strlen (pattern) * 2 + 3);

  font_name_copy = alloca (strlen (fontname) + 1);
  strcpy (font_name_copy, fontname);

  ptr = regex;
  *ptr++ = '^';

  /* Turn pattern into a regexp and do a regexp match.  */

       if the heights differ.  */
    if (font_height && pattern_height && (font_height != pattern_height))
      return FALSE;
  }

  return (fast_string_match_ignore_case (build_string (regex),
                                         build_string(font_name_copy)) >= 0);
}

/* Callback functions, and a structure holding info they need, for
   listing system fonts on W32. We need one set of functions to do the
   job properly, but these don't work on NT 3.51 and earlier, so we