(describe_vector): Handle default value of a char table.
This commit is contained in:
parent
eb62213c32
commit
0f4d7511f1
1 changed files with 8 additions and 0 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue