procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(SET_RAW_SYNTAX_ENTRY, SYNTAX_ENTRY): Cast arg C to

Browse source 
`unsigned char' before indexing syntax table directly.
This commit is contained in:
Kenichi Handa 1997-02-28 01:40:51 +00:00
parent 78f9a1f703
commit 0e35bfd8d0
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/syntax.h
View file

@ -53,10 +53,10 @@ enum syntaxcode
/* Set the syntax entry VAL for char C in table TABLE. */
#define SET_RAW_SYNTAX_ENTRY(table, c, val) \
((unsigned)(c) < 128 \
? (XCHAR_TABLE (table)->contents[(unsigned) (c)] = (val)) \
: Faset ((table), (unsigned) (c), (val)))
#define SET_RAW_SYNTAX_ENTRY(table, c, val) \
((c) < CHAR_TABLE_ORDINARY_SLOTS \
? (XCHAR_TABLE (table)->contents[(unsigned char) (c)] = (val)) \
: Faset ((table), make_number (c), (val)))
/* Fetch the syntax entry for char C in syntax table TABLE.
This macro is called only when C is less than CHAR_TABLE_ORDINARY_SLOTS.
@ -89,10 +89,12 @@ extern Lisp_Object syntax_parent_lookup ();
This returns the whole entry (normally a cons cell).
Do Inheritance. */
#define SYNTAX_ENTRY(c) \
((unsigned) (c) < CHAR_TABLE_ORDINARY_SLOTS \
? SYNTAX_ENTRY_FOLLOW_PARENT (current_buffer->syntax_table, (unsigned) (c))\
: Faref (current_buffer->syntax_table, make_number (c)))
#define SYNTAX_ENTRY(c) \
((c) < CHAR_TABLE_ORDINARY_SLOTS \
? SYNTAX_ENTRY_FOLLOW_PARENT (current_buffer->syntax_table, \
(unsigned char) (c)) \
: Faref (current_buffer->syntax_table, make_number ((c))))
/* Extract the information from the entry for character C
in the current syntax table. */