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

1 files changed, 4 insertions, 0 deletions

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;