From: Kenichi Handa <handa@m17n.org>
Date: Fri, 1 Aug 1997 00:29:34 +0000 (+0000)
Subject: (x_list_fonts): Request at least 10 fonts by XListFonts.
X-Git-Tag: emacs-20.1~884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9a32686f791cdb28ea0f1c3d7717b37cd3d87c99;p=emacs.git

(x_list_fonts): Request at least 10 fonts by XListFonts.
---

diff --git a/src/xterm.c b/src/xterm.c
index 742bffd84d9..8955b345140 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6359,6 +6359,10 @@ x_list_fonts (f, pattern, size, maxnames)
   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;
+
   for (; CONSP (patterns); patterns = XCONS (patterns)->cdr)
     {
       int num_fonts;