From: Andrew Choi <akochoi@shaw.ca>
Date: Fri, 25 Apr 2003 04:32:25 +0000 (+0000)
Subject: * macterm.c (x_list_fonts): Return all fonts that match if maxnames = -1.
X-Git-Tag: ttn-vms-21-2-B4~10421
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b325c12a2332c696fdc87478d418d43e013ee22;p=emacs.git

* macterm.c (x_list_fonts): Return all fonts that match if maxnames = -1.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 77b6334f0d4..39833221c2b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-24  Andrew Choi  <akochoi@shaw.ca>
+
+	* macterm.c (x_list_fonts): Return all fonts that match if
+	maxnames = -1.
+
 2003-04-25  Kenichi Handa  <handa@m17n.org>
 
 	* syntax.c (skip_chars): Fix previous change.
diff --git a/src/macterm.c b/src/macterm.c
index 9e4e567ecbe..c1806cab714 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -5825,7 +5825,8 @@ init_font_name_table ()
 /* Return a list of at most MAXNAMES font specs matching the one in
    PATTERN.  Cache matching fonts for patterns in
    dpyinfo->name_list_element to avoid looking them up again by
-   calling mac_font_pattern_match (slow).  */
+   calling mac_font_pattern_match (slow).  Return as many matching
+   fonts as possible if MAXNAMES = -1.  */
 
 Lisp_Object
 x_list_fonts (struct frame *f,
@@ -5868,7 +5869,7 @@ x_list_fonts (struct frame *f,
           newlist = Fcons (build_string (font_name_table[i]), newlist);
 
           n_fonts++;
-          if (n_fonts >= maxnames)
+          if (maxnames > 0 && n_fonts >= maxnames)
             break;
         }
     }