167 |
while (tem = Fcategory_table_p (table), NILP (tem)) |
while (tem = Fcategory_table_p (table), NILP (tem)) |
168 |
table = wrong_type_argument (Qcategory_table_p, table); |
table = wrong_type_argument (Qcategory_table_p, table); |
169 |
return table; |
return table; |
170 |
} |
} |
171 |
|
|
172 |
DEFUN ("category-table", Fcategory_table, Scategory_table, 0, 0, 0, |
DEFUN ("category-table", Fcategory_table, Scategory_table, 0, 0, 0, |
173 |
doc: /* Return the current category table. |
doc: /* Return the current category table. |
377 |
|
|
378 |
if (NILP (CATEGORY_DOCSTRING (table, XFASTINT (category)))) |
if (NILP (CATEGORY_DOCSTRING (table, XFASTINT (category)))) |
379 |
error ("Undefined category: %c", XFASTINT (category)); |
error ("Undefined category: %c", XFASTINT (category)); |
380 |
|
|
381 |
set_value = NILP (reset) ? Qt : Qnil; |
set_value = NILP (reset) ? Qt : Qnil; |
382 |
|
|
383 |
if (c < CHAR_TABLE_SINGLE_BYTE_SLOTS) |
if (c < CHAR_TABLE_SINGLE_BYTE_SLOTS) |
534 |
Fput (Qcategory_table, Qchar_table_extra_slots, make_number (2)); |
Fput (Qcategory_table, Qchar_table_extra_slots, make_number (2)); |
535 |
|
|
536 |
Vstandard_category_table = Fmake_char_table (Qcategory_table, Qnil); |
Vstandard_category_table = Fmake_char_table (Qcategory_table, Qnil); |
537 |
/* Set a category set which contains nothing to the default. */ |
/* Set a category set which contains nothing to the default. */ |
538 |
XCHAR_TABLE (Vstandard_category_table)->defalt = MAKE_CATEGORY_SET; |
XCHAR_TABLE (Vstandard_category_table)->defalt = MAKE_CATEGORY_SET; |
539 |
Fset_char_table_extra_slot (Vstandard_category_table, make_number (0), |
Fset_char_table_extra_slot (Vstandard_category_table, make_number (0), |
540 |
Fmake_vector (make_number (95), Qnil)); |
Fmake_vector (make_number (95), Qnil)); |