1 |
/* Declarations having to do with Emacs category tables. |
/* Declarations having to do with Emacs category tables. |
2 |
Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
3 |
Licensed to the Free Software Foundation. |
Licensed to the Free Software Foundation. |
4 |
|
Copyright (C) 2003 |
5 |
|
National Institute of Advanced Industrial Science and Technology (AIST) |
6 |
|
Registration Number H13PRO009 |
7 |
|
|
8 |
This file is part of GNU Emacs. |
This file is part of GNU Emacs. |
9 |
|
|
98 |
#define Vstandard_category_table buffer_defaults.category_table |
#define Vstandard_category_table buffer_defaults.category_table |
99 |
|
|
100 |
/* Return the category set of character C in the current category table. */ |
/* Return the category set of character C in the current category table. */ |
101 |
#ifdef __GNUC__ |
#define CATEGORY_SET(c) char_category_set (c) |
|
#define CATEGORY_SET(c) \ |
|
|
({ Lisp_Object table = current_buffer->category_table; \ |
|
|
Lisp_Object temp; \ |
|
|
if ((c) < CHAR_TABLE_SINGLE_BYTE_SLOTS) \ |
|
|
while (NILP (temp = XCHAR_TABLE (table)->contents[(unsigned char) c]) \ |
|
|
&& NILP (temp = XCHAR_TABLE (table)->defalt)) \ |
|
|
table = XCHAR_TABLE (table)->parent; \ |
|
|
else \ |
|
|
temp = Faref (table, make_number (c)); \ |
|
|
temp; }) |
|
|
#else |
|
|
#define CATEGORY_SET(c) \ |
|
|
Faref (current_buffer->category_table, make_number (c)) |
|
|
#endif |
|
102 |
|
|
103 |
/* Return the doc string of CATEGORY in category table TABLE. */ |
/* Return the doc string of CATEGORY in category table TABLE. */ |
104 |
#define CATEGORY_DOCSTRING(table, category) \ |
#define CATEGORY_DOCSTRING(table, category) \ |