[Emacs-diffs] Changes to emacs/src/fns.c

[Kenichi Handa]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.388 emacs/src/fns.c:1.389
*** emacs/src/fns.c:1.388       Thu Apr 21 23:44:59 2005
--- emacs/src/fns.c     Fri Apr 22 07:11:08 2005
***************
*** 462,470 ****
  copy_sub_char_table (arg)
       Lisp_Object arg;
  {
!   Lisp_Object copy = make_sub_char_table (XCHAR_TABLE (arg)->defalt);
    int i;
  
    /* Copy all the contents.  */
    bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
         SUB_CHAR_TABLE_ORDINARY_SLOTS * sizeof (Lisp_Object));
--- 462,471 ----
  copy_sub_char_table (arg)
       Lisp_Object arg;
  {
!   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));