diff options
| author | Ken Raeburn <[email protected]> | 1999-09-11 20:42:47 +0000 |
|---|---|---|
| committer | Ken Raeburn <[email protected]> | 1999-09-11 20:42:47 +0000 |
| commit | 3331fb06882c51a668ce44d995ea4095eb42bd19 (patch) | |
| tree | 5ab1e0b5056a51c633b345625a067c061474705b /src/syntax.h | |
| parent | ff287a27b62d4a4bba389567885f939525c73760 (diff) | |
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 edc03f93a8..c2c3a0896d 100644 --- a/src/syntax.h +++ b/src/syntax.h @@ -122,39 +122,39 @@ extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int)); ({ Lisp_Object temp; \ temp = SYNTAX_ENTRY (c); \ (CONSP (temp) \ - ? (enum syntaxcode) (XINT (XCONS (temp)->car) & 0xff) \ + ? (enum syntaxcode) (XINT (XCAR (temp)) & 0xff) \ : Swhitespace); }) #define SYNTAX_WITH_FLAGS(c) \ ({ Lisp_Object temp; \ temp = SYNTAX_ENTRY (c); \ (CONSP (temp) \ - ? XINT (XCONS (temp)->car) \ + ? XINT (XCAR (temp)) \ : (int) Swhitespace); }) #define SYNTAX_MATCH(c) \ ({ Lisp_Object temp; \ temp = SYNTAX_ENTRY (c); \ (CONSP (temp) \ - ? XCONS (temp)->cdr \ + ? XCDR (temp) \ : Qnil); }) #else #define SYNTAX(c) \ (syntax_temp = SYNTAX_ENTRY ((c)), \ (CONSP (syntax_temp) \ - ? (enum syntaxcode) (XINT (XCONS (syntax_temp)->car) & 0xff) \ + ? (enum syntaxcode) (XINT (XCAR (syntax_temp)) & 0xff) \ : Swhitespace)) #define SYNTAX_WITH_FLAGS(c) \ (syntax_temp = SYNTAX_ENTRY ((c)), \ (CONSP (syntax_temp) \ - ? XINT (XCONS (syntax_temp)->car) \ + ? XINT (XCAR (syntax_temp)) \ : (int) Swhitespace)) #define SYNTAX_MATCH(c) \ (syntax_temp = SYNTAX_ENTRY ((c)), \ (CONSP (syntax_temp) \ - ? XCONS (syntax_temp)->cdr \ + ? XCDR (syntax_temp) \ : Qnil)) #endif |