(font_unparse_fcname): Pay attention to the case that

some of font property is a null string.

diff --git a/src/font.c b/src/font.c
index 505a91de16319430f8a821476187385af1b9b830..b1bdd10d51a62ef2758c96a25db646c6614326c9 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1324,7 +1324,7 @@ font_unparse_fcname (font, pixel_size, name, nbytes)
     p += sprintf (p, ":foundry=%s",
                  SDATA (SYMBOL_NAME (AREF (font, FONT_FOUNDRY_INDEX))));
   for (i = 0; i < 3; i++)
-    if (! NILP (styles [i]))
+    if (SYMBOLP (styles[i]) && ! NILP (styles [i]))
       p += sprintf (p, ":%s=%s", style_names[i],
                    SDATA (SYMBOL_NAME (styles [i])));
   if (dpi >= 0)