From: handa <handa>
Date: Fri, 18 Nov 2005 10:47:16 +0000 (+0000)
Subject: (mfont_list): Fix for the case that FONT is NULL.
X-Git-Tag: REL-1-3-0~70
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=900bfe19a1087b4d2b65ab087b4935f1df96eee1;p=m17n%2Fm17n-lib.git

(mfont_list): Fix for the case that FONT is NULL.
---

diff --git a/src/font.c b/src/font.c
index 2bff416..3bb5c99 100644
--- a/src/font.c
+++ b/src/font.c
@@ -2789,8 +2789,13 @@ mfont_list (MFrame *frame, MFont *font, MSymbol language, int maxnum)
   MPlist *plist, *pl;
   MFontList *font_list;
   int i;
-  MFont spec = *font;
+  MFont spec;
   
+  if (font)
+    spec = *font;
+  else
+    MFONT_INIT (&spec);
+
   if (spec.size < 0)
     {
       double pt = - spec.size;