# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1224734483 0
# Node ID 741755a52dcf058115873c8386566999038940c6
# Parent  39579cd3115854e45294f6f47f0a6749af978b10
(font_add_log): Check the values of extra properties.

diff -r 39579cd31158 -r 741755a52dcf src/font.c
--- a/src/font.c	Thu Oct 23 03:51:55 2008 +0000
+++ b/src/font.c	Thu Oct 23 04:01:23 2008 +0000
@@ -4810,13 +4810,16 @@
 	   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)))));