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 | 1468c19bdd7c70f503e8af37eee4c06deec4fe2d (patch) | |
| tree | 29dc44722a09f17a29018f8b7bb87be7e0fb952e /src/fns.c | |
| parent | 9a9c3a4b940d6e3f38136fc262b1c56ae574e6eb (diff) | |
| download | emacs-1468c19bdd7c70f503e8af37eee4c06deec4fe2d.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)); |