(CATEGORY_DOCSTRING): Convert Fchar_table_extra_slot

argument to Lisp_Integer.
(CATEGORY_TABLE_VERSION): Likewise.

diff --git a/src/category.h b/src/category.h
index f646f9ddfcba1a3f5d0c6aae6448359d515b8892..f1c40f9cff0ab71e813ae547c76b64ac4302c7b3 100644 (file)
--- a/src/category.h
+++ b/src/category.h
@@ -119,12 +119,12 @@ extern Lisp_Object _temp_category_set;
 
 /* Return the doc string of CATEGORY in category table TABLE.  */
 #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
    the moment.  */
 #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
    characters C1 and C2 if they appear in this order, else return 0.