aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.h
diff options
context:
space:
mode:
authorKen Raeburn1999-09-11 20:42:47 +0000
committerKen Raeburn1999-09-11 20:42:47 +0000
commit3331fb06882c51a668ce44d995ea4095eb42bd19 (patch)
tree5ab1e0b5056a51c633b345625a067c061474705b /src/syntax.h
parentff287a27b62d4a4bba389567885f939525c73760 (diff)
downloademacs-3331fb06882c51a668ce44d995ea4095eb42bd19.tar.gz
emacs-3331fb06882c51a668ce44d995ea4095eb42bd19.zip
Use XCAR and XCDR.
Diffstat (limited to 'src/syntax.h')
-rw-r--r--src/syntax.h12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/syntax.h b/src/syntax.h
index edc03f93a81..c2c3a0896d0 100644
--- a/src/syntax.h
+++ b/src/syntax.h
@@ -122,39 +122,39 @@ extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int));
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