Commit 49f9c344 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(font_add_log): Check the values of extra properties.

parent 8b4ef1fc
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):
......
......@@ -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)))));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment