[Emacs-diffs] Changes to emacs/src/fontset.c

[Kenichi Handa]

Index: emacs/src/fontset.c
diff -c emacs/src/fontset.c:1.87 emacs/src/fontset.c:1.88
*** emacs/src/fontset.c:1.87    Wed Jun 30 19:34:15 2004
--- emacs/src/fontset.c Mon Oct 18 12:27:46 2004
***************
*** 654,660 ****
       struct face *face;
  {
    Lisp_Object fontset;
!   Lisp_Object list, elt;
    int size = 0;
    struct font_info *fontp;
    int charset = CHAR_CHARSET (c);
--- 654,660 ----
       struct face *face;
  {
    Lisp_Object fontset;
!   Lisp_Object list, elt, fullname;
    int size = 0;
    struct font_info *fontp;
    int charset = CHAR_CHARSET (c);
***************
*** 700,709 ****
       font_info structure that are not set by (*load_font_func).  */
    fontp->charset = charset;
  
    fontp->vertical_centering
      = (STRINGP (Vvertical_centering_font_regexp)
!        && (fast_c_string_match_ignore_case
!          (Vvertical_centering_font_regexp, fontp->full_name) >= 0));
  
    if (fontp->encoding[1] != FONT_ENCODING_NOT_DECIDED)
      {
--- 700,710 ----
       font_info structure that are not set by (*load_font_func).  */
    fontp->charset = charset;
  
+   fullname = build_string (fontp->full_name);
    fontp->vertical_centering
      = (STRINGP (Vvertical_centering_font_regexp)
!        && (fast_string_match_ignore_case
!          (Vvertical_centering_font_regexp, fullname) >= 0));
  
    if (fontp->encoding[1] != FONT_ENCODING_NOT_DECIDED)
      {
***************
*** 720,726 ****
        /* The font itself doesn't have information about encoding.  */
        int i;
  
-       fontname = fontp->full_name;
        /* By default, encoding of ASCII chars is 0 (i.e. 0x00..0x7F),
         others is 1 (i.e. 0x80..0xFF).  */
        fontp->encoding[0] = 0;
--- 721,726 ----
***************
*** 732,739 ****
          elt = XCAR (list);
          if (CONSP (elt)
              && STRINGP (XCAR (elt)) && CONSP (XCDR (elt))
!             && (fast_c_string_match_ignore_case (XCAR (elt), fontname)
!                 >= 0))
            {
              Lisp_Object tmp;
  
--- 732,738 ----
          elt = XCAR (list);
          if (CONSP (elt)
              && STRINGP (XCAR (elt)) && CONSP (XCDR (elt))
!             && (fast_string_match_ignore_case (XCAR (elt), fullname) >= 0))
            {
              Lisp_Object tmp;
  
***************
*** 847,864 ****
  
    for (i = 0; i < ASIZE (Vfontset_table); i++)
      {
!       Lisp_Object fontset;
!       const unsigned char *this_name;
  
        fontset = FONTSET_FROM_ID (i);
        if (NILP (fontset)
          || !BASE_FONTSET_P (fontset))
        continue;
  
!       this_name = SDATA (FONTSET_NAME (fontset));
        if (regexpp
!         ? fast_c_string_match_ignore_case (name, this_name) >= 0
!         : !strcmp (SDATA (name), this_name))
        return i;
      }
    return -1;
--- 846,862 ----
  
    for (i = 0; i < ASIZE (Vfontset_table); i++)
      {
!       Lisp_Object fontset, this_name;
  
        fontset = FONTSET_FROM_ID (i);
        if (NILP (fontset)
          || !BASE_FONTSET_P (fontset))
        continue;
  
!       this_name = FONTSET_NAME (fontset);
        if (regexpp
!         ? fast_string_match (name, this_name) >= 0
!         : !strcmp (SDATA (name), SDATA (this_name)))
        return i;
      }
    return -1;
***************
*** 912,930 ****
  
    for (id = 0; id < ASIZE (Vfontset_table); id++)
      {
!       Lisp_Object fontset;
!       const unsigned char *name;
  
        fontset = FONTSET_FROM_ID (id);
        if (NILP (fontset)
          || !BASE_FONTSET_P (fontset)
          || !EQ (frame, FONTSET_FRAME (fontset)))
        continue;
!       name = SDATA (FONTSET_NAME (fontset));
  
        if (!NILP (regexp)
!         ? (fast_c_string_match_ignore_case (regexp, name) < 0)
!         : strcmp (SDATA (pattern), name))
        continue;
  
        if (size)
--- 910,927 ----
  
    for (id = 0; id < ASIZE (Vfontset_table); id++)
      {
!       Lisp_Object fontset, name;
  
        fontset = FONTSET_FROM_ID (id);
        if (NILP (fontset)
          || !BASE_FONTSET_P (fontset)
          || !EQ (frame, FONTSET_FRAME (fontset)))
        continue;
!       name = FONTSET_NAME (fontset);
  
        if (!NILP (regexp)
!         ? (fast_string_match (regexp, name) < 0)
!         : strcmp (SDATA (pattern), SDATA (name)))
        continue;
  
        if (size)