Mercurial > emacs
changeset 20189:16f5b56c2f68
(copy_category_table): Copy also the first extra slot
(vector of docstrings).
(Fcopy_category_table): Do not give unused second arg to
copy_category_table.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 27 Oct 1997 04:34:26 +0000 |
| parents | d4ad4463384d |
| children | bc7fabb22520 |
| files | src/category.c |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/category.c Mon Oct 27 04:34:26 1997 +0000 +++ b/src/category.c Mon Oct 27 04:34:26 1997 +0000 @@ -187,7 +187,7 @@ /* Return a copy of category table TABLE. We can't simply use the function copy-sequence because no contents should be shared between the original and the copy. This function is called recursively by - biding TABLE to a sub char table. */ + binding TABLE to a sub char table. */ Lisp_Object copy_category_table (table) @@ -207,6 +207,12 @@ if (!NILP (tmp = XCHAR_TABLE (table)->contents[i])) XCHAR_TABLE (table)->contents[i] = Fcopy_sequence (tmp); to = CHAR_TABLE_ORDINARY_SLOTS; + + /* Also copy the first (and sole) extra slot. It is a vector + containing docstring of each category. */ + Fset_char_table_extra_slot + (table, make_number (0), + Fcopy_sequence (Fchar_table_extra_slot (table, make_number (0)))); } else { @@ -241,7 +247,7 @@ else table = Vstandard_category_table; - return copy_category_table (table, 1); + return copy_category_table (table); } DEFUN ("set-category-table", Fset_category_table, Sset_category_table, 1, 1, 0, @@ -606,7 +612,7 @@ Vstandard_category_table = Fmake_char_table (Qcategory_table, Qnil); /* Set a category set which contains nothing to the default. */ XCHAR_TABLE (Vstandard_category_table)->defalt = MAKE_CATEGORY_SET; - Fset_char_table_extra_slot (Vstandard_category_table, 0, + Fset_char_table_extra_slot (Vstandard_category_table, make_number (0), Fmake_vector (make_number (95), Qnil)); }