Mercurial > emacs

diff 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
line wrap: on
line diff
--- a/src/syntax.h	Sat Sep 11 20:40:09 1999 +0000
+++ b/src/syntax.h	Sat Sep 11 20:42:47 1999 +0000
@@ -122,39 +122,39 @@
   ({ 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