From ea625b14aebfb68d14e9b25916e88cf6a4e03b1a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Jul 1997 06:46:35 +0000 Subject: (CATEGORY_DOCSTRING): Convert Fchar_table_extra_slot argument to Lisp_Integer. (CATEGORY_TABLE_VERSION): Likewise. --- src/category.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/category.h b/src/category.h index f646f9ddfc..f1c40f9cff 100644 --- 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. -- cgit v1.2.3