Mercurial > emacs

comparison src/syntax.h @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents 8a008f65c8d4
children 9b5b989d1857
comparison
equal deleted inserted replaced
18612:88efccff8970 18613:614b916ff5bf
132 132
133 #define SYNTAX_MATCH(c) \ 133 #define SYNTAX_MATCH(c) \
134 ({ Lisp_Object temp; \ 134 ({ Lisp_Object temp; \
135 temp = SYNTAX_ENTRY (c); \ 135 temp = SYNTAX_ENTRY (c); \
136 (CONSP (temp) \ 136 (CONSP (temp) \
137 ? XINT (XCONS (temp)->cdr) \ 137 ? XCONS (temp)->cdr \
138 : Qnil); }) 138 : Qnil); })
139 #else 139 #else
140 #define SYNTAX(c) \ 140 #define SYNTAX(c) \
141 (syntax_temp = SYNTAX_ENTRY ((c)), \ 141 (syntax_temp = SYNTAX_ENTRY ((c)), \
142 (CONSP (syntax_temp) \ 142 (CONSP (syntax_temp) \
150 : (int) Swhitespace)) 150 : (int) Swhitespace))
151 151
152 #define SYNTAX_MATCH(c) \ 152 #define SYNTAX_MATCH(c) \
153 (syntax_temp = SYNTAX_ENTRY ((c)), \ 153 (syntax_temp = SYNTAX_ENTRY ((c)), \
154 (CONSP (syntax_temp) \ 154 (CONSP (syntax_temp) \
155 ? XINT (XCONS (syntax_temp)->cdr) \ 155 ? XCONS (syntax_temp)->cdr \
156 : Qnil)) 156 : Qnil))
157 #endif 157 #endif
158 158
159 /* Then there are six single-bit flags that have the following meanings: 159 /* Then there are six single-bit flags that have the following meanings:
160 1. This character is the first of a two-character comment-start sequence. 160 1. This character is the first of a two-character comment-start sequence.