diff options
| author | Ken Raeburn | 1999-09-11 20:42:47 +0000 |
|---|---|---|
| committer | Ken Raeburn | 1999-09-11 20:42:47 +0000 |
| commit | 3331fb06882c51a668ce44d995ea4095eb42bd19 (patch) | |
| tree | 5ab1e0b5056a51c633b345625a067c061474705b /src/syntax.h | |
| parent | ff287a27b62d4a4bba389567885f939525c73760 (diff) | |
| download | emacs-3331fb06882c51a668ce44d995ea4095eb42bd19.tar.gz emacs-3331fb06882c51a668ce44d995ea4095eb42bd19.zip | |
Use XCAR and XCDR.
Diffstat (limited to 'src/syntax.h')
| -rw-r--r-- | src/syntax.h | 12 |
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 | ||