diff options
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/category.c b/src/category.c index 8a7d4d40762..ee48ce442e3 100644 --- a/src/category.c +++ b/src/category.c @@ -70,7 +70,7 @@ hash_get_category_set (Lisp_Object table, Lisp_Object category_set) EMACS_UINT hash; if (NILP (XCHAR_TABLE (table)->extras[1])) - char_table_set_extras + set_char_table_extras (table, 1, make_hash_table (Qequal, make_number (DEFAULT_HASH_SIZE), make_float (DEFAULT_REHASH_SIZE), @@ -240,7 +240,7 @@ copy_category_table (Lisp_Object table) if (! NILP (XCHAR_TABLE (table)->defalt)) set_char_table_defalt (table, Fcopy_sequence (XCHAR_TABLE (table)->defalt)); - char_table_set_extras + set_char_table_extras (table, 0, Fcopy_sequence (XCHAR_TABLE (table)->extras[0])); map_char_table (copy_category_entry, Qnil, table, table); @@ -272,7 +272,7 @@ DEFUN ("make-category-table", Fmake_category_table, Smake_category_table, val = Fmake_char_table (Qcategory_table, Qnil); set_char_table_defalt (val, MAKE_CATEGORY_SET); for (i = 0; i < (1 << CHARTAB_SIZE_BITS_0); i++) - char_table_set_contents (val, i, MAKE_CATEGORY_SET); + set_char_table_contents (val, i, MAKE_CATEGORY_SET); Fset_char_table_extra_slot (val, make_number (0), Fmake_vector (make_number (95), Qnil)); return val; |