(describe_vector): Handle default value of a char table.

This commit is contained in:
Kenichi Handa 2004-02-10 11:30:01 +00:00
parent eb62213c32
commit 0f4d7511f1

View file

@ -3384,6 +3384,14 @@ describe_vector (vector, elt_prefix, args, elt_describer,
(*elt_describer) (definition, args);
}
if (CHAR_TABLE_P (vector) && ! NILP (XCHAR_TABLE (vector)->defalt))
{
if (!NILP (elt_prefix))
insert1 (elt_prefix);
insert ("default", 7);
(*elt_describer) (XCHAR_TABLE (vector)->defalt, args);
}
UNGCPRO;
}