Mercurial > emacs
changeset 61735:76a2f6423902
(copy_sub_char_table): Explicitly copy the default value
of the sub-chartable.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 22 Apr 2005 07:11:08 +0000 |
| parents | 64a1c93f3c3d |
| children | e3221787f899 |
| files | src/fns.c |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Fri Apr 22 05:56:58 2005 +0000 +++ b/src/fns.c Fri Apr 22 07:11:08 2005 +0000 @@ -462,9 +462,10 @@ 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));