Mercurial > emacs

comparison src/syntax.h @ 56068:f6fab60742ca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(SYNTAX_ENTRY_FOLLOW_PARENT): Rename local variable to avoid clashes. (SYNTAX): Likewise. (SYNTAX_WITH_FLAGS): Likewise. (SYNTAX_MATCH): Likewise.
author Andreas Schwab <schwab@suse.de>
date Sun, 13 Jun 2004 15:30:31 +0000
parents 75e1ea70fb3d
children a8fa7c632ee4 4c90ffeb71c5
comparison
equal deleted inserted replaced
56067:c1e92ca4c785 56068:f6fab60742ca
66 This macro is called only when C is less than CHAR_TABLE_ORDINARY_SLOTS. 66 This macro is called only when C is less than CHAR_TABLE_ORDINARY_SLOTS.
67 Do inheritance. */ 67 Do inheritance. */
68 68
69 #ifdef __GNUC__ 69 #ifdef __GNUC__
70 #define SYNTAX_ENTRY_FOLLOW_PARENT(table, c) \ 70 #define SYNTAX_ENTRY_FOLLOW_PARENT(table, c) \
71 ({ Lisp_Object tbl = table; \ 71 ({ Lisp_Object _syntax_tbl = (table); \
72 Lisp_Object temp = XCHAR_TABLE (tbl)->contents[(c)]; \ 72 Lisp_Object _syntax_temp = XCHAR_TABLE (_syntax_tbl)->contents[(c)]; \
73 while (NILP (temp)) \ 73 while (NILP (_syntax_temp)) \
74 { \ 74 { \
75 tbl = XCHAR_TABLE (tbl)->parent; \ 75 _syntax_tbl = XCHAR_TABLE (_syntax_tbl)->parent; \
76 if (NILP (tbl)) \ 76 if (NILP (_syntax_tbl)) \
77 break; \ 77 break; \
78 temp = XCHAR_TABLE (tbl)->contents[(c)]; \ 78 _syntax_temp = XCHAR_TABLE (_syntax_tbl)->contents[(c)]; \
79 } \ 79 } \
80 temp; }) 80 _syntax_temp; })
81 #else 81 #else
82 extern Lisp_Object syntax_temp; 82 extern Lisp_Object syntax_temp;
83 extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int)); 83 extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int));
84 84
85 #define SYNTAX_ENTRY_FOLLOW_PARENT(table, c) \ 85 #define SYNTAX_ENTRY_FOLLOW_PARENT(table, c) \
115 /* Extract the information from the entry for character C 115 /* Extract the information from the entry for character C
116 in the current syntax table. */ 116 in the current syntax table. */
117 117
118 #ifdef __GNUC__ 118 #ifdef __GNUC__
119 #define SYNTAX(c) \ 119 #define SYNTAX(c) \
120 ({ Lisp_Object temp; \ 120 ({ Lisp_Object _syntax_temp; \
121 temp = SYNTAX_ENTRY (c); \ 121 _syntax_temp = SYNTAX_ENTRY (c); \
122 (CONSP (temp) \ 122 (CONSP (_syntax_temp) \
123 ? (enum syntaxcode) (XINT (XCAR (temp)) & 0xff) \ 123 ? (enum syntaxcode) (XINT (XCAR (_syntax_temp)) & 0xff) \
124 : Swhitespace); }) 124 : Swhitespace); })
125 125
126 #define SYNTAX_WITH_FLAGS(c) \ 126 #define SYNTAX_WITH_FLAGS(c) \
127 ({ Lisp_Object temp; \ 127 ({ Lisp_Object _syntax_temp; \
128 temp = SYNTAX_ENTRY (c); \ 128 _syntax_temp = SYNTAX_ENTRY (c); \
129 (CONSP (temp) \ 129 (CONSP (_syntax_temp) \
130 ? XINT (XCAR (temp)) \ 130 ? XINT (XCAR (_syntax_temp)) \
131 : (int) Swhitespace); }) 131 : (int) Swhitespace); })
132 132
133 #define SYNTAX_MATCH(c) \ 133 #define SYNTAX_MATCH(c) \
134 ({ Lisp_Object temp; \ 134 ({ Lisp_Object _syntax_temp; \
135 temp = SYNTAX_ENTRY (c); \ 135 _syntax_temp = SYNTAX_ENTRY (c); \
136 (CONSP (temp) \ 136 (CONSP (_syntax_temp) \
137 ? XCDR (temp) \ 137 ? XCDR (_syntax_temp) \
138 : Qnil); }) 138 : Qnil); })
139 #else 139 #else
140 #define SYNTAX(c) \ 140 #define SYNTAX(c) \
141 (syntax_temp = SYNTAX_ENTRY ((c)), \ 141 (syntax_temp = SYNTAX_ENTRY ((c)), \
142 (CONSP (syntax_temp) \ 142 (CONSP (syntax_temp) \