diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-04-22 07:11:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-04-22 07:11:08 +0000 |
| commit | 1bda678a8cfdef9d49d27422d53e341d891ebb34 (patch) | |
| tree | c63d04a80ab3b14d15701a3bb15dbd824e3d6a3d /src/fns.c | |
| parent | c365832a1cb92b95c7ad32b057c1db3bfd1dda5c (diff) | |
| download | emacs-1bda678a8cfdef9d49d27422d53e341d891ebb34.tar.gz | |
(copy_sub_char_table): Explicitly copy the default value
of the sub-chartable.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fns.c b/src/fns.c index a22bad7dea0..b93ebb65234 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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)); |