mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues 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));