(mfontset_modify_entry): Pay attention to the case

that fontset->font_spec_list is NULL.

diff --git a/src/fontset.c b/src/fontset.c
index d42a44e..f525d68 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -837,14 +837,17 @@ mfontset_modify_entry (MFontset *fontset,
   if (fontset->mdb)
     load_fontset_contents (fontset);
 
-  MPLIST_DO (pl, fontset->font_spec_list)
-    {
-      if (! memcmp (MPLIST_VAL (pl), spec, sizeof (MFont)))
-       {
-         font = MPLIST_VAL (pl);
-         break;
-       }
-    }
+  if (! fontset->font_spec_list)
+    fontset->font_spec_list = mplist ();
+  else
+    MPLIST_DO (pl, fontset->font_spec_list)
+      {
+       if (! memcmp (MPLIST_VAL (pl), spec, sizeof (MFont)))
+         {
+           font = MPLIST_VAL (pl);
+           break;
+         }
+      }
   if (! font)
     {
       font = mfont ();