(try_alternative_families): First try the FAMILY.

And if nothing is found in the end, try again with scalable fonts.
(try_font_list): Let try_alternative_families do a bit more of
the work.  Only use FAMILY if it is not nil.
(syms_of_xfaces) <scalable-fonts-allowed>: Fix docstring.

2 files changed, 56 insertions, 45 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 40d9e492fc1..280b828f738 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,11 @@
+2001-05-14  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * xfaces.c (try_alternative_families): First try the FAMILY.
+        And if nothing is found in the end, try again with scalable fonts.
+        (try_font_list): Let try_alternative_families do a bit more of
+        the work.  Only use FAMILY if it is not nil.
+        (syms_of_xfaces) <scalable-fonts-allowed>: Fix docstring.
+
 2001-05-14  Gerd Moellmann  <gerd@gnu.org>
 
         * xterm.c (x_draw_glyphs): Fix compuation of rightmost x for
@@ -5,15 +13,14 @@
 
         * xfaces.c (split_font_name): Make sure to leave the loop
         with the right value of `i'.
-        
+
         * xfaces.c (split_font_name): Handle matrix transformations
         in the pixel and point size fields of XLFD font names.
         (xlfd_point_size): Likewise.
 
 2001-05-12  Eli Zaretskii  <eliz@is.elta.co.il>
 
-        * w32fns.c (w32_to_x_font): Change prototype to fit the
-        declaration.
+        * w32fns.c (w32_to_x_font): Change prototype to fit the declaration.
         (x_to_w32_font): Add prototype.
 
         * regex.c (malloc, realloc, free) [emacs]: Undefine before
diff --git a/src/xfaces.c b/src/xfaces.c
index 93acc8b5317..68371ef2293 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -5843,8 +5843,8 @@ best_matching_font (f, attrs, fonts, nfonts, width_ratio)
 }
 
 
-/* Get a list of matching fonts on frame F, considering alterntive
-   font families from Vface_alternative_font_registry_alist.
+/* Get a list of matching fonts on frame F, considering FAMILY
+   and alternative font families from Vface_alternative_font_registry_alist.
 
    FAMILY is the font family whose alternatives are considered.
 
@@ -5864,27 +5864,40 @@ try_alternative_families (f, family, registry, fonts)
   Lisp_Object alter;
   int nfonts = 0;
 
-  /* Try alternative font families.  */
-  alter = Fassoc (family, Vface_alternative_font_family_alist);
-  if (CONSP (alter))
+  nfonts = font_list (f, Qnil, family, registry, fonts);
+  if (nfonts == 0)
     {
-      for (alter = XCDR (alter);
-           CONSP (alter) && nfonts == 0;
-           alter = XCDR (alter))
+      /* Try alternative font families.  */
+      alter = Fassoc (family, Vface_alternative_font_family_alist);
+      if (CONSP (alter))
+        {
+          for (alter = XCDR (alter);
+               CONSP (alter) && nfonts == 0;
+               alter = XCDR (alter))
+            {
+              if (STRINGP (XCAR (alter)))
+                nfonts = font_list (f, Qnil, XCAR (alter), registry, fonts);
+            }
+        }
+      
+      /* Try scalable fonts before giving up.  */
+      if (nfonts == 0 && NILP (Vscalable_fonts_allowed))
         {
-          if (STRINGP (XCAR (alter)))
-            nfonts = font_list (f, Qnil, XCAR (alter), registry, fonts);
+          int count = BINDING_STACK_SIZE ();
+          specbind (Qscalable_fonts_allowed, Qt);
+          nfonts = try_alternative_families (f, family, registry, fonts);
+          unbind_to (count, Qnil);
         }
     }
-
   return nfonts;
 }
 
 
 /* Get a list of matching fonts on frame F.
 
-   FAMILY, if a string, specifies a font family.  If nil, use
-   the family specified in Lisp face attributes ATTRS instead.
+   FAMILY, if a string, specifies a font family derived from the fontset.
+   It is only used if the face does not specify any family in ATTRS or
+   if we cannot find any font of the face's family.
 
    REGISTRY, if a string, specifies a font registry and encoding to
    match.  A value of nil means include fonts of any registry and
@@ -5901,39 +5914,28 @@ try_font_list (f, attrs, family, registry, fonts)
      struct font_name **fonts;
 {
   int nfonts = 0;
+  Lisp_Object face_family = attrs[LFACE_FAMILY_INDEX];
 
-  if (STRINGP (attrs[LFACE_FAMILY_INDEX]))
-    {
-      Lisp_Object face_family;
-      face_family = attrs[LFACE_FAMILY_INDEX];
-      nfonts = font_list (f, Qnil, face_family, registry, fonts);
-      if (nfonts == 0)
-        nfonts = try_alternative_families (f, face_family, registry, fonts);
-    }
+  if (STRINGP (face_family))
+    nfonts = try_alternative_families (f, face_family, registry, fonts);
+
+  if (nfonts == 0 && !NILP (family))
+    nfonts = try_alternative_families (f, family, registry, fonts);
 
+  /* Try font family of the default face or "fixed".  */
   if (nfonts == 0)
     {
+      struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
+      if (default_face)
+        family = default_face->lface[LFACE_FAMILY_INDEX];
+      else
+        family = build_string ("fixed");
       nfonts = font_list (f, Qnil, family, registry, fonts);
-      if (nfonts == 0 && !NILP (family))
-        {
-          nfonts = try_alternative_families (f, family, registry, fonts);
-
-          /* Try font family of the default face or "fixed".  */
-          if (nfonts == 0)
-            {
-              struct face *default_face = FACE_FROM_ID (f, DEFAULT_FACE_ID);
-              if (default_face)
-                family = default_face->lface[LFACE_FAMILY_INDEX];
-              else
-                family = build_string ("fixed");
-              nfonts = font_list (f, Qnil, family, registry, fonts);
-            }
-
-          /* Try any family with the given registry.  */
-          if (nfonts == 0)
-            nfonts = font_list (f, Qnil, Qnil, registry, fonts);
-        }
     }
+      
+  /* Try any family with the given registry.  */
+  if (nfonts == 0)
+    nfonts = font_list (f, Qnil, Qnil, registry, fonts);
 
   return nfonts;
 }
@@ -7200,8 +7202,10 @@ See `set-face-stipple' for possible values for this variable.");
 A value of nil means don't allow any scalable fonts.\n\
 A value of t means allow any scalable font.\n\
 Otherwise, value must be a list of regular expressions.  A font may be\n\
-scaled if its name matches a regular expression in the list.");
-  Vscalable_fonts_allowed = Qt;
+scaled if its name matches a regular expression in the list.\n\
+Note that if value is nil, a scalable font might still be used, if no\n\
+other font of the appropriate family and registry is available.");
+  Vscalable_fonts_allowed = Qnil;
 
   DEFVAR_LISP ("face-ignored-fonts", &Vface_ignored_fonts,
     "List of ignored fonts.\n\