Commit ea625b14 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(CATEGORY_DOCSTRING): Convert Fchar_table_extra_slot

argument to Lisp_Integer.
(CATEGORY_TABLE_VERSION): Likewise.
parent 6703ac4f
...@@ -119,12 +119,12 @@ extern Lisp_Object _temp_category_set; ...@@ -119,12 +119,12 @@ extern Lisp_Object _temp_category_set;
/* Return the doc string of CATEGORY in category table TABLE. */ /* Return the doc string of CATEGORY in category table TABLE. */
#define CATEGORY_DOCSTRING(table, category) \ #define CATEGORY_DOCSTRING(table, category) \
XVECTOR (Fchar_table_extra_slot (table, 0))->contents[(category) - ' '] XVECTOR (Fchar_table_extra_slot (table, make_number (0)))->contents[(category) - ' ']
/* Return the version number of category table TABLE. Not used for /* Return the version number of category table TABLE. Not used for
the moment. */ the moment. */
#define CATEGORY_TABLE_VERSION (table) \ #define CATEGORY_TABLE_VERSION (table) \
Fchar_table_extra_slot (table, 1) Fchar_table_extra_slot (table, make_number (1))
/* Return 1 if there is a word boundary between two word-constituent /* Return 1 if there is a word boundary between two word-constituent
characters C1 and C2 if they appear in this order, else return 0. characters C1 and C2 if they appear in this order, else return 0.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment