From: Kenichi Handa <handa@m17n.org>
Date: Mon, 23 Oct 2006 11:24:55 +0000 (+0000)
Subject: (font_unparse_fcname): Pay attention to the case that
X-Git-Tag: emacs-pretest-23.0.90~8295^2~721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e1ef8fd7a520f729ae2a6238dfcd679fbb613cb;p=emacs.git

(font_unparse_fcname): Pay attention to the case that
foundry is a null string.
---

diff --git a/src/font.c b/src/font.c
index 1a626bb1bfb..505a91de163 100644
--- a/src/font.c
+++ b/src/font.c
@@ -1253,7 +1253,7 @@ font_unparse_fcname (font, pixel_size, name, nbytes)
     }
 
   val = AREF (font, FONT_FOUNDRY_INDEX);
-  if (! NILP (val))
+  if (SYMBOLP (val) && ! NILP (val))
     /* ":foundry=NAME" */
     len += 9 + SBYTES (SYMBOL_NAME (val));