(font_add_log): Check the values of extra properties.

diff --git a/src/ChangeLog b/src/ChangeLog
index 472108f..09cd140 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-23  Kenichi Handa  <handa@m17n.org>
+
+       * font.c (font_add_log): Check the values of extra properties.
+
 2008-10-22  Martin Rudalics  <rudalics@gmx.at>
 
        * window.c (Fwindow_dedicated_p, Fset_window_dedicated_p):

diff --git a/src/font.c b/src/font.c
index a9ddd83..5e09323 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -4810,13 +4810,16 @@ font_add_log (action, arg, result)
           tail = XCDR (tail))
        {
          elt = XCAR (tail);
-         if (EQ (XCAR (elt), QCscript))
+         if (EQ (XCAR (elt), QCscript)
+             && SYMBOLP (XCDR (elt)))
            val = concat3 (val, SYMBOL_NAME (QCscript),
                           concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
-         else if (EQ (XCAR (elt), QClang))
+         else if (EQ (XCAR (elt), QClang)
+                  && SYMBOLP (XCDR (elt)))
            val = concat3 (val, SYMBOL_NAME (QClang),
                           concat2 (equalstr, SYMBOL_NAME (XCDR (elt))));
-         else if (EQ (XCAR (elt), QCotf) && CONSP (XCDR (elt)))
+         else if (EQ (XCAR (elt), QCotf)
+                  && CONSP (XCDR (elt)) && SYMBOLP (XCAR (XCDR (elt))))
            val = concat3 (val, SYMBOL_NAME (QCotf),
                           concat2 (equalstr,
                                    SYMBOL_NAME (XCAR (XCDR (elt)))));