/[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.130 by pj, Fri Nov 2 20:45:57 2001 UTC revision 1.131 by jasonr, Sat Nov 10 13:51:02 2001 UTC
# Line 6672  enum_font_cb2 (lplf, lptm, FontType, lpe Line 6672  enum_font_cb2 (lplf, lptm, FontType, lpe
6672      int FontType;      int FontType;
6673      enumfont_t * lpef;      enumfont_t * lpef;
6674  {  {
6675    /* Ignore struck out, underlined and vertical versions of fonts.  */    /* Ignore struck out and underlined versions of fonts.  */
6676    if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline    if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline)
6677        || lplf->elfLogFont.lfEscapement != 0      return 1;
6678        || lplf->elfLogFont.lfOrientation != 0)  
6679      /* Only return fonts with names starting with @ if they were
6680         explicitly specified, since Microsoft uses an initial @ to
6681         denote fonts for vertical writing, without providing a more
6682         convenient way of identifying them.  */
6683      if (lplf->elfLogFont.lfFaceName[0] == '@'
6684          && lpef->logfont.lfFaceName[0] != '@')
6685      return 1;      return 1;
6686    
6687    /* Check that the character set matches if it was specified */    /* Check that the character set matches if it was specified */
# Line 6728  enum_font_cb2 (lplf, lptm, FontType, lpe Line 6734  enum_font_cb2 (lplf, lptm, FontType, lpe
6734    
6735      /* TODO: List all relevant charsets if charset not specified. */      /* TODO: List all relevant charsets if charset not specified. */
6736      if (!w32_to_x_font (&(lplf->elfLogFont), buf, 100, charset))      if (!w32_to_x_font (&(lplf->elfLogFont), buf, 100, charset))
6737        return 0;        return 1;
6738    
6739      if (NILP (*(lpef->pattern))      if (NILP (*(lpef->pattern))
6740          || w32_font_match (buf, XSTRING (*(lpef->pattern))->data))          || w32_font_match (buf, XSTRING (*(lpef->pattern))->data))

Legend:
Removed from v.1.130  
changed lines
  Added in v.1.131

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