martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(copy_sub_char_table): Explicitly copy the default value

Browse Source 
of the sub-chartable.
This commit is contained in:
Kenichi Handa
2005-04-22 07:11:08 +00:00
parent 9a9c3a4b94
commit 1468c19bdd
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/fns.c
View File

@@ -462,9 +462,10 @@ static Lisp_Object
copy_sub_char_table (arg)
Lisp_Object arg;
{
Lisp_Object copy = make_sub_char_table (XCHAR_TABLE (arg)->defalt);
Lisp_Object copy = make_sub_char_table (Qnil);
int i;
XCHAR_TABLE (copy)->defalt = XCHAR_TABLE (arg)->defalt;
/* Copy all the contents. */
bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
SUB_CHAR_TABLE_ORDINARY_SLOTS * sizeof (Lisp_Object));