From 1468c19bdd7c70f503e8af37eee4c06deec4fe2d Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 22 Apr 2005 07:11:08 +0000 Subject: [PATCH] (copy_sub_char_table): Explicitly copy the default value of the sub-chartable. --- src/fns.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)); -- 2.39.2