summaryrefslogtreecommitdiff
path: root/src/syntax.c
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1994-10-04 16:13:34 +0000
committerKarl Heuer <kwzh@gnu.org>1994-10-04 16:13:34 +0000
commitd5f215c4a1a622e9b2fb1bbc22c6cc99d5f72059 (patch)
tree673d0599247aa67b603ed3ab32a6a102bc0a36c7 /src/syntax.c
parentd2620e156cc35c1a6cd067f7f6186b2a8142df01 (diff)
downloademacs-d5f215c4a1a622e9b2fb1bbc22c6cc99d5f72059.tar.gz
(Fcopy_syntax_table, Fmodify_syntax_entry, scan_lists, init_syntax_once):
Don't use XFASTINT as an lvalue.
Diffstat (limited to 'src/syntax.c')
-rw-r--r--src/syntax.c40
1 files changed, 20 insertions, 20 deletions
diff --git a/src/syntax.c b/src/syntax.c
index 14187b1d8cd..2fff064fda4 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -152,8 +152,8 @@ It is a copy of the TABLE, which defaults to the standard syntax table.")
Lisp_Object table;
{
Lisp_Object size, val;
- XFASTINT (size) = 0400;
- XFASTINT (val) = 0;
+ XSETFASTINT (size, 0400);
+ XSETFASTINT (val, 0);
val = Fmake_vector (size, val);
if (!NILP (table))
table = check_syntax_table (table);
@@ -309,7 +309,7 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
if (match) p++;
if (match == ' ') match = 0;
- XFASTINT (val) = (match << 8) + (int) code;
+ XSETFASTINT (val, (match << 8) + (int) code);
while (*p)
switch (*p++)
{
@@ -1273,7 +1273,7 @@ scan_lists (from, count, depth, sexpflag)
immediate_quit = 0;
- XFASTINT (val) = from;
+ XSETFASTINT (val, from);
return val;
lose:
@@ -1692,28 +1692,28 @@ init_syntax_once ()
v = XVECTOR (Vstandard_syntax_table);
for (i = 'a'; i <= 'z'; i++)
- XFASTINT (v->contents[i]) = (int) Sword;
+ XSETFASTINT (v->contents[i], (int) Sword);
for (i = 'A'; i <= 'Z'; i++)
- XFASTINT (v->contents[i]) = (int) Sword;
+ XSETFASTINT (v->contents[i], (int) Sword);
for (i = '0'; i <= '9'; i++)
- XFASTINT (v->contents[i]) = (int) Sword;
- XFASTINT (v->contents['$']) = (int) Sword;
- XFASTINT (v->contents['%']) = (int) Sword;
-
- XFASTINT (v->contents['(']) = (int) Sopen + (')' << 8);
- XFASTINT (v->contents[')']) = (int) Sclose + ('(' << 8);
- XFASTINT (v->contents['[']) = (int) Sopen + (']' << 8);
- XFASTINT (v->contents[']']) = (int) Sclose + ('[' << 8);
- XFASTINT (v->contents['{']) = (int) Sopen + ('}' << 8);
- XFASTINT (v->contents['}']) = (int) Sclose + ('{' << 8);
- XFASTINT (v->contents['"']) = (int) Sstring;
- XFASTINT (v->contents['\\']) = (int) Sescape;
+ XSETFASTINT (v->contents[i], (int) Sword);
+ XSETFASTINT (v->contents['$'], (int) Sword);
+ XSETFASTINT (v->contents['%'], (int) Sword);
+
+ XSETFASTINT (v->contents['('], (int) Sopen + (')' << 8));
+ XSETFASTINT (v->contents[')'], (int) Sclose + ('(' << 8));
+ XSETFASTINT (v->contents['['], (int) Sopen + (']' << 8));
+ XSETFASTINT (v->contents[']'], (int) Sclose + ('[' << 8));
+ XSETFASTINT (v->contents['{'], (int) Sopen + ('}' << 8));
+ XSETFASTINT (v->contents['}'], (int) Sclose + ('{' << 8));
+ XSETFASTINT (v->contents['"'], (int) Sstring);
+ XSETFASTINT (v->contents['\\'], (int) Sescape);
for (i = 0; i < 10; i++)
- XFASTINT (v->contents["_-+*/&|<>="[i]]) = (int) Ssymbol;
+ XSETFASTINT (v->contents["_-+*/&|<>="[i]], (int) Ssymbol);
for (i = 0; i < 12; i++)
- XFASTINT (v->contents[".,;:?!#@~^'`"[i]]) = (int) Spunct;
+ XSETFASTINT (v->contents[".,;:?!#@~^'`"[i]], (int) Spunct);
}
syms_of_syntax ()