Mercurial > emacs
comparison src/syntax.h @ 17127:ab43d13fdfd5
(SET_RAW_SYNTAX_ENTRY, SYNTAX_ENTRY): Cast arg C to
`unsigned char' before indexing syntax table directly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 28 Feb 1997 01:40:51 +0000 |
| parents | 1dfa84b25d3b |
| children | 156896ccc86e |
comparison
equal
deleted
inserted
replaced
| 17126:f8d7263cce09 | 17127:ab43d13fdfd5 |
|---|---|
| 51 Smax /* Upper bound on codes that are meaningful */ | 51 Smax /* Upper bound on codes that are meaningful */ |
| 52 }; | 52 }; |
| 53 | 53 |
| 54 /* Set the syntax entry VAL for char C in table TABLE. */ | 54 /* Set the syntax entry VAL for char C in table TABLE. */ |
| 55 | 55 |
| 56 #define SET_RAW_SYNTAX_ENTRY(table, c, val) \ | 56 #define SET_RAW_SYNTAX_ENTRY(table, c, val) \ |
| 57 ((unsigned)(c) < 128 \ | 57 ((c) < CHAR_TABLE_ORDINARY_SLOTS \ |
| 58 ? (XCHAR_TABLE (table)->contents[(unsigned) (c)] = (val)) \ | 58 ? (XCHAR_TABLE (table)->contents[(unsigned char) (c)] = (val)) \ |
| 59 : Faset ((table), (unsigned) (c), (val))) | 59 : Faset ((table), make_number (c), (val))) |
| 60 | 60 |
| 61 /* Fetch the syntax entry for char C in syntax table TABLE. | 61 /* Fetch the syntax entry for char C in syntax table TABLE. |
| 62 This macro is called only when C is less than CHAR_TABLE_ORDINARY_SLOTS. | 62 This macro is called only when C is less than CHAR_TABLE_ORDINARY_SLOTS. |
| 63 Do inheritance. */ | 63 Do inheritance. */ |
| 64 | 64 |
| 87 | 87 |
| 88 /* Fetch the syntax entry for char C in the current syntax table. | 88 /* Fetch the syntax entry for char C in the current syntax table. |
| 89 This returns the whole entry (normally a cons cell). | 89 This returns the whole entry (normally a cons cell). |
| 90 Do Inheritance. */ | 90 Do Inheritance. */ |
| 91 | 91 |
| 92 #define SYNTAX_ENTRY(c) \ | 92 #define SYNTAX_ENTRY(c) \ |
| 93 ((unsigned) (c) < CHAR_TABLE_ORDINARY_SLOTS \ | 93 ((c) < CHAR_TABLE_ORDINARY_SLOTS \ |
| 94 ? SYNTAX_ENTRY_FOLLOW_PARENT (current_buffer->syntax_table, (unsigned) (c))\ | 94 ? SYNTAX_ENTRY_FOLLOW_PARENT (current_buffer->syntax_table, \ |
| 95 : Faref (current_buffer->syntax_table, make_number (c))) | 95 (unsigned char) (c)) \ |
| 96 : Faref (current_buffer->syntax_table, make_number ((c)))) | |
| 97 | |
| 96 | 98 |
| 97 /* Extract the information from the entry for character C | 99 /* Extract the information from the entry for character C |
| 98 in the current syntax table. */ | 100 in the current syntax table. */ |
| 99 | 101 |
| 100 #ifdef __GNUC__ | 102 #ifdef __GNUC__ |
