/[emacs]/emacs/src/w32fns.c
ViewVC logotype

Diff of /emacs/src/w32fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.244 by jhd, Tue Nov 2 08:21:16 2004 UTC revision 1.245 by jasonr, Tue Nov 2 08:55:10 2004 UTC
# Line 5607  w32_font_match (fontname, pattern) Line 5607  w32_font_match (fontname, pattern)
5607      char * fontname;      char * fontname;
5608      char * pattern;      char * pattern;
5609  {  {
   char *font_name_copy;  
5610    char *ptr;    char *ptr;
5611    Lisp_Object encoded_font_name;    char *font_name_copy;
5612    char *regex = alloca (strlen (pattern) * 2 + 3);    char *regex = alloca (strlen (pattern) * 2 + 3);
5613    
5614    /* Convert fontname to unibyte for match.  */    font_name_copy = alloca (strlen (fontname) + 1);
5615    encoded_font_name = string_make_unibyte (build_string (fontname));    strcpy (font_name_copy, fontname);
   font_name_copy = SDATA (encoded_font_name);  
5616    
5617    ptr = regex;    ptr = regex;
5618    *ptr++ = '^';    *ptr++ = '^';
# Line 5652  w32_font_match (fontname, pattern) Line 5650  w32_font_match (fontname, pattern)
5650        return FALSE;        return FALSE;
5651    }    }
5652    
5653    return (fast_c_string_match_ignore_case (build_string (regex),    return (fast_string_match_ignore_case (build_string (regex),
5654                                             font_name_copy) >= 0);                                           build_string(font_name_copy)) >= 0);
5655  }  }
5656    
5657  /* Callback functions, and a structure holding info they need, for  /* Callback functions, and a structure holding info they need, for

Legend:
Removed from v.1.244  
changed lines
  Added in v.1.245

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26