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

[Kenichi Handa]

Index: emacs/src/xterm.c
diff -c emacs/src/xterm.c:1.818 emacs/src/xterm.c:1.819
*** emacs/src/xterm.c:1.818     Sat Nov  8 07:45:13 2003
--- emacs/src/xterm.c   Tue Nov 11 02:47:44 2003
***************
*** 9443,9453 ****
    Display *dpy = dpyinfo->display;
    int try_XLoadQueryFont = 0;
    int count;
!   int allow_scalable_fonts_p = 0;
  
    if (size < 0)
      {
!       allow_scalable_fonts_p = 1;
        size = 0;
      }
  
--- 9443,9453 ----
    Display *dpy = dpyinfo->display;
    int try_XLoadQueryFont = 0;
    int count;
!   int allow_auto_scaled_font = 0;
  
    if (size < 0)
      {
!       allow_auto_scaled_font = 1;
        size = 0;
      }
  
***************
*** 9470,9476 ****
         ((((PATTERN . MAXNAMES) . SCALABLE) (FONTNAME . WIDTH) ...) ...)  */
        tem = XCDR (dpyinfo->name_list_element);
        key = Fcons (Fcons (pattern, make_number (maxnames)),
!                  allow_scalable_fonts_p ? Qt : Qnil);
        list = Fassoc (key, tem);
        if (!NILP (list))
        {
--- 9470,9476 ----
         ((((PATTERN . MAXNAMES) . SCALABLE) (FONTNAME . WIDTH) ...) ...)  */
        tem = XCDR (dpyinfo->name_list_element);
        key = Fcons (Fcons (pattern, make_number (maxnames)),
!                  allow_auto_scaled_font ? Qt : Qnil);
        list = Fassoc (key, tem);
        if (!NILP (list))
        {
***************
*** 9576,9600 ****
            {
              int width = 0;
              char *p = names[i];
!             int average_width = -1, dashes = 0;
  
              /* Count the number of dashes in NAMES[I].  If there are
!                14 dashes, and the field value following 12th dash
!                (AVERAGE_WIDTH) is 0, this is a auto-scaled font which
!                is usually too ugly to be used for editing.  Let's
!                ignore it.  */
              while (*p)
                if (*p++ == '-')
                  {
                    dashes++;
                    if (dashes == 7) /* PIXEL_SIZE field */
                      width = atoi (p);
                    else if (dashes == 12) /* AVERAGE_WIDTH field */
                      average_width = atoi (p);
                  }
  
!             if (allow_scalable_fonts_p
!                 || dashes < 14 || average_width != 0)
                {
                  tem = build_string (names[i]);
                  if (NILP (Fassoc (tem, list)))
--- 9576,9603 ----
            {
              int width = 0;
              char *p = names[i];
!             int average_width = -1, resx = 0, dashes = 0;
  
              /* Count the number of dashes in NAMES[I].  If there are
!                14 dashes, the field value following 9th dash
!                (RESOLUTION_X) is nonzero, and the field value
!                following 12th dash (AVERAGE_WIDTH) is 0, this is a
!                auto-scaled font which is usually too ugly to be used
!                for editing.  Let's ignore it.  */
              while (*p)
                if (*p++ == '-')
                  {
                    dashes++;
                    if (dashes == 7) /* PIXEL_SIZE field */
                      width = atoi (p);
+                   else if (dashes == 9)
+                     resx = atoi (p);
                    else if (dashes == 12) /* AVERAGE_WIDTH field */
                      average_width = atoi (p);
                  }
  
!             if (allow_auto_scaled_font
!                 || dashes < 14 || average_width != 0 || resx == 0)
                {
                  tem = build_string (names[i]);
                  if (NILP (Fassoc (tem, list)))