From: Kenichi Handa <handa@m17n.org>
Date: Fri, 22 Apr 2005 07:11:08 +0000 (+0000)
Subject: (copy_sub_char_table): Explicitly copy the default value
X-Git-Tag: ttn-vms-21-2-B4~833
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1468c19bdd7c70f503e8af37eee4c06deec4fe2d;p=emacs.git

(copy_sub_char_table): Explicitly copy the default value
of the sub-chartable.
---

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));