/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.388 by kfstorm, Thu Apr 21 23:44:59 2005 UTC revision 1.389 by handa, Fri Apr 22 07:11:08 2005 UTC
# Line 462  static Lisp_Object Line 462  static Lisp_Object
462  copy_sub_char_table (arg)  copy_sub_char_table (arg)
463       Lisp_Object arg;       Lisp_Object arg;
464  {  {
465    Lisp_Object copy = make_sub_char_table (XCHAR_TABLE (arg)->defalt);    Lisp_Object copy = make_sub_char_table (Qnil);
466    int i;    int i;
467    
468      XCHAR_TABLE (copy)->defalt = XCHAR_TABLE (arg)->defalt;
469    /* Copy all the contents.  */    /* Copy all the contents.  */
470    bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,    bcopy (XCHAR_TABLE (arg)->contents, XCHAR_TABLE (copy)->contents,
471           SUB_CHAR_TABLE_ORDINARY_SLOTS * sizeof (Lisp_Object));           SUB_CHAR_TABLE_ORDINARY_SLOTS * sizeof (Lisp_Object));

Legend:
Removed from v.1.388  
changed lines
  Added in v.1.389

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26