Mercurial > emacs

comparison src/syntax.h @ 25640:69c2d34eb25c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use XCAR and XCDR.
author Ken Raeburn <raeburn@raeburn.org>
date Sat, 11 Sep 1999 20:42:47 +0000
parents 2a2d7ebaa018
children 9ecd0716cf8a
comparison
equal deleted inserted replaced
25639:8d9a53e6b71c 25640:69c2d34eb25c
120 #ifdef __GNUC__ 120 #ifdef __GNUC__
121 #define SYNTAX(c) \ 121 #define SYNTAX(c) \
122 ({ Lisp_Object temp; \ 122 ({ Lisp_Object temp; \
123 temp = SYNTAX_ENTRY (c); \ 123 temp = SYNTAX_ENTRY (c); \
124 (CONSP (temp) \ 124 (CONSP (temp) \
125 ? (enum syntaxcode) (XINT (XCONS (temp)->car) & 0xff) \ 125 ? (enum syntaxcode) (XINT (XCAR (temp)) & 0xff) \
126 : Swhitespace); }) 126 : Swhitespace); })
127 127
128 #define SYNTAX_WITH_FLAGS(c) \ 128 #define SYNTAX_WITH_FLAGS(c) \
129 ({ Lisp_Object temp; \ 129 ({ Lisp_Object temp; \
130 temp = SYNTAX_ENTRY (c); \ 130 temp = SYNTAX_ENTRY (c); \
131 (CONSP (temp) \ 131 (CONSP (temp) \
132 ? XINT (XCONS (temp)->car) \ 132 ? XINT (XCAR (temp)) \
133 : (int) Swhitespace); }) 133 : (int) Swhitespace); })
134 134
135 #define SYNTAX_MATCH(c) \ 135 #define SYNTAX_MATCH(c) \
136 ({ Lisp_Object temp; \ 136 ({ Lisp_Object temp; \
137 temp = SYNTAX_ENTRY (c); \ 137 temp = SYNTAX_ENTRY (c); \
138 (CONSP (temp) \ 138 (CONSP (temp) \
139 ? XCONS (temp)->cdr \ 139 ? XCDR (temp) \
140 : Qnil); }) 140 : Qnil); })
141 #else 141 #else
142 #define SYNTAX(c) \ 142 #define SYNTAX(c) \
143 (syntax_temp = SYNTAX_ENTRY ((c)), \ 143 (syntax_temp = SYNTAX_ENTRY ((c)), \
144 (CONSP (syntax_temp) \ 144 (CONSP (syntax_temp) \
145 ? (enum syntaxcode) (XINT (XCONS (syntax_temp)->car) & 0xff) \ 145 ? (enum syntaxcode) (XINT (XCAR (syntax_temp)) & 0xff) \
146 : Swhitespace)) 146 : Swhitespace))
147 147
148 #define SYNTAX_WITH_FLAGS(c) \ 148 #define SYNTAX_WITH_FLAGS(c) \
149 (syntax_temp = SYNTAX_ENTRY ((c)), \ 149 (syntax_temp = SYNTAX_ENTRY ((c)), \
150 (CONSP (syntax_temp) \ 150 (CONSP (syntax_temp) \
151 ? XINT (XCONS (syntax_temp)->car) \ 151 ? XINT (XCAR (syntax_temp)) \
152 : (int) Swhitespace)) 152 : (int) Swhitespace))
153 153
154 #define SYNTAX_MATCH(c) \ 154 #define SYNTAX_MATCH(c) \
155 (syntax_temp = SYNTAX_ENTRY ((c)), \ 155 (syntax_temp = SYNTAX_ENTRY ((c)), \
156 (CONSP (syntax_temp) \ 156 (CONSP (syntax_temp) \
157 ? XCONS (syntax_temp)->cdr \ 157 ? XCDR (syntax_temp) \
158 : Qnil)) 158 : Qnil))
159 #endif 159 #endif
160 160
161 /* Then there are seven single-bit flags that have the following meanings: 161 /* Then there are seven single-bit flags that have the following meanings:
162 1. This character is the first of a two-character comment-start sequence. 162 1. This character is the first of a two-character comment-start sequence.