aboutsummaryrefslogtreecommitdiffstats
path: root/src/syntax.h
diff options
context:
space:
mode:
authorKaroly Lorentey2004-06-14 20:00:54 +0000
committerKaroly Lorentey2004-06-14 20:00:54 +0000
commit987a34896f0f07c76a87314ee444467903632aeb (patch)
tree5e982f524d8a38b1156fd5c7c93517170a4e6764 /src/syntax.h
parent71a96040ef5a4a8a308a109c45bbabb20769beac (diff)
parent4060d762b6bd7a2e7e6d0c57154beac00496c9d6 (diff)
downloademacs-987a34896f0f07c76a87314ee444467903632aeb.tar.gz
emacs-987a34896f0f07c76a87314ee444467903632aeb.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-398 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-399 Tweak directory permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-401 More build-in-place tweaking of arch tagging * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-403 Yet more build-in-place tweaking of arch tagging * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-404 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-405 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-406 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-407 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-199
Diffstat (limited to 'src/syntax.h')
-rw-r--r--src/syntax.h38
1 files changed, 19 insertions, 19 deletions
diff --git a/src/syntax.h b/src/syntax.h
index f86ab8fc265..cb1eeb62687 100644
--- a/src/syntax.h
+++ b/src/syntax.h
@@ -68,16 +68,16 @@ enum syntaxcode
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
82extern Lisp_Object syntax_temp; 82extern Lisp_Object syntax_temp;
83extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int)); 83extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int));
@@ -117,24 +117,24 @@ extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int));
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) \