# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 897982325 0
# Node ID 104e277d77d3b7f0e93677559e94de130c148e53
# Parent  627b13315f041d953e3558f9cb945fcfe9e238b9
(x_list_fonts): If SIZE is zero and MAXNAMES is 1, use
XLoadQueryFont instead of XListFonts.
(x_load_fonts): Call x_list_fonts with MAXNAMES 1.

diff -r 627b13315f04 -r 104e277d77d3 src/xterm.c
--- a/src/xterm.c	Tue Jun 16 04:50:57 1998 +0000
+++ b/src/xterm.c	Tue Jun 16 07:32:05 1998 +0000
@@ -6423,14 +6423,21 @@
 {
   Lisp_Object list = Qnil, patterns, newlist = Qnil, key, tem, second_best;
   Display *dpy = f != NULL ? FRAME_X_DISPLAY (f) : x_display_list->display;
+  int try_XLoadQueryFont = 0;
 
   patterns = Fassoc (pattern, Valternate_fontname_alist);
   if (NILP (patterns))
     patterns = Fcons (pattern, Qnil);
 
-  /* We try at least 10 fonts because X server will return auto-scaled
-     fonts at the head.  */
-  if (maxnames < 10) maxnames = 10;
+  if (maxnames == 1 && !size)
+    /* We can return any single font matching PATTERN.  */
+    try_XLoadQueryFont = 1;
+  else
+    {
+      /* We try at least 10 fonts because XListFonts will return
+	 auto-scaled fonts at the head.  */
+      if (maxnames < 10) maxnames = 10;
+    }
 
   for (; CONSP (patterns); patterns = XCONS (patterns)->cdr)
     {
@@ -6452,8 +6459,33 @@
 	}
 
       /* At first, put PATTERN in the cache.  */
+
       BLOCK_INPUT;
-      names = XListFonts (dpy, XSTRING (pattern)->data, maxnames, &num_fonts);
+      if (try_XLoadQueryFont)
+	{
+	  XFontStruct *font;
+	  unsigned long value;
+
+	  font = XLoadQueryFont (dpy, XSTRING (pattern)->data);
+	  if (font
+	      && XGetFontProperty (font, XA_FONT, &value))
+	    {
+	      char *name = (char *) XGetAtomName (dpy, (Atom) value);
+	      int len = strlen (name);
+
+	      num_fonts = 1;
+	      names = alloca (sizeof (char *));
+	      names[0] = alloca (len + 1);
+	      bcopy (name, names[0], len + 1);
+	      XFree (name);
+	    }
+	  else
+	    try_XLoadQueryFont = 0;
+	}
+
+      if (!try_XLoadQueryFont)
+	names = XListFonts (dpy, XSTRING (pattern)->data, maxnames,
+			    &num_fonts);
       UNBLOCK_INPUT;
 
       if (names)
@@ -6499,7 +6531,8 @@
 		    }
 		}
 	    }
-	  XFreeFontNames (names);
+	  if (!try_XLoadQueryFont)
+	    XFreeFontNames (names);
 	}
 
       /* Now store the result in the cache.  */
@@ -6603,7 +6636,7 @@
   /* Get a list of all the fonts that match this name.  Once we
      have a list of matching fonts, we compare them against the fonts
      we already have by comparing names.  */
-  font_names = x_list_fonts (f, build_string (fontname), size, 256);
+  font_names = x_list_fonts (f, build_string (fontname), size, 1);
 
   if (!NILP (font_names))
     {