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