Mercurial > emacs

comparison src/syntax.h @ 13318:94a4b6e9d310

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(SYNTAX, SYNTAX_WITH_FLAGS, SYNTAX_MATCH): Fix the non-GCC definitions.
author Richard M. Stallman <rms@gnu.org>
date Sun, 29 Oct 1995 04:38:08 +0000
parents ba670977cceb
children 3b50e2642bfd
comparison
equal deleted inserted replaced
13317:877d62af45a9 13318:94a4b6e9d310
120 ? (syntax_temp \ 120 ? (syntax_temp \
121 = syntax_parent_lookup (current_buffer->syntax_table, (c))) \ 121 = syntax_parent_lookup (current_buffer->syntax_table, (c))) \
122 : syntax_temp)) 122 : syntax_temp))
123 123
124 #define SYNTAX(c) \ 124 #define SYNTAX(c) \
125 (syntax_temp \ 125 (syntax_temp = SYNTAX_ENTRY ((c)), \
126 = SYNTAX_ENTRY (current_buffer->syntax_table, (c)), \
127 (CONSP (syntax_temp) \ 126 (CONSP (syntax_temp) \
128 ? (enum syntaxcode) (XINT (XCONS (syntax_temp)->car) & 0xff) \ 127 ? (enum syntaxcode) (XINT (XCONS (syntax_temp)->car) & 0xff) \
129 : wrong_type_argument (Qconsp, syntax_temp)) }) 128 : wrong_type_argument (Qconsp, syntax_temp)))
130 129
131 #define SYNTAX_WITH_FLAGS(c) \ 130 #define SYNTAX_WITH_FLAGS(c) \
132 (syntax_temp \ 131 (syntax_temp = SYNTAX_ENTRY ((c)), \
133 = SYNTAX_ENTRY (current_buffer->syntax_table, (c)), \
134 (CONSP (syntax_temp) \ 132 (CONSP (syntax_temp) \
135 ? XINT (XCONS (syntax_temp)->car) \ 133 ? XINT (XCONS (syntax_temp)->car) \
136 : wrong_type_argument (Qconsp, syntax_temp)) }) 134 : wrong_type_argument (Qconsp, syntax_temp)))
137 135
138 #define SYNTAX_MATCH(c) \ 136 #define SYNTAX_MATCH(c) \
139 (syntax_temp \ 137 (syntax_temp = SYNTAX_ENTRY ((c)), \
140 = SYNTAX_ENTRY (current_buffer->syntax_table, (c)), \
141 (CONSP (syntax_temp) \ 138 (CONSP (syntax_temp) \
142 ? XINT (XCONS (syntax_temp)->cdr) \ 139 ? XINT (XCONS (syntax_temp)->cdr) \
143 : wrong_type_argument (Qconsp, syntax_temp)) }) 140 : wrong_type_argument (Qconsp, syntax_temp)))
144 #endif 141 #endif
145 142
146 /* Then there are six single-bit flags that have the following meanings: 143 /* Then there are six single-bit flags that have the following meanings:
147 1. This character is the first of a two-character comment-start sequence. 144 1. This character is the first of a two-character comment-start sequence.
148 2. This character is the second of a two-character comment-start sequence. 145 2. This character is the second of a two-character comment-start sequence.