From: handa <handa>
Date: Mon, 11 Oct 2004 02:17:47 +0000 (+0000)
Subject: (xfont_list): Fix previous change.
X-Git-Tag: REL-1-2-0~134
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e189abc321e7a816649e4d6fe890e4558866e3a5;p=m17n%2Fm17n-lib.git

(xfont_list): Fix previous change.
---

diff --git a/src/m17n-X.c b/src/m17n-X.c
index d8e8579..376b12a 100644
--- a/src/m17n-X.c
+++ b/src/m17n-X.c
@@ -922,10 +922,10 @@ xfont_list (MFrame *frame, MPlist *plist, MFont *font, MSymbol language,
   if (! font)
     MPLIST_DO (p, disp_info->base_font_list)
       {
-	mplist_push (plist, MPLIST_KEY (p), MPLIST_VAL (p));
+	mplist_add (plist, MPLIST_KEY (p), MPLIST_VAL (p));
 	num++;
 	if (num == maxnum)
-	  break;
+	  return num;
       }
   else
     {
@@ -958,10 +958,10 @@ xfont_list (MFrame *frame, MPlist *plist, MFont *font, MSymbol language,
 		  xfont = xfontlist->fonts + i;
 		  if (mfont__match_p (&xfont->core, font, MFONT_REGISTRY))
 		    {
-		      mplist_push (plist, MPLIST_KEY (p), &xfont->core);
+		      mplist_add (plist, MPLIST_KEY (p), &xfont->core);
 		      num++;
 		      if (num == maxnum)
-			break;
+			return num;
 		    }
 		}
 	      if (family != Mnil)