aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1994-10-04 16:13:34 +0000
committerKarl Heuer1994-10-04 16:13:34 +0000
commit1e142fb79d41c2256977a22f0996d20caa121bfd (patch)
treeeea6c8e718444720a8ef69eba0e56ba651847c9d
parentc235cce70362414fa1f3edde98bd3677b907ec31 (diff)
downloademacs-1e142fb79d41c2256977a22f0996d20caa121bfd.tar.gz
emacs-1e142fb79d41c2256977a22f0996d20caa121bfd.zip
(Fcopy_syntax_table, Fmodify_syntax_entry, scan_lists, init_syntax_once):
Don't use XFASTINT as an lvalue.
-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.")
152 Lisp_Object table; 152 Lisp_Object table;
153{ 153{
154 Lisp_Object size, val; 154 Lisp_Object size, val;
155 XFASTINT (size) = 0400; 155 XSETFASTINT (size, 0400);
156 XFASTINT (val) = 0; 156 XSETFASTINT (val, 0);
157 val = Fmake_vector (size, val); 157 val = Fmake_vector (size, val);
158 if (!NILP (table)) 158 if (!NILP (table))
159 table = check_syntax_table (table); 159 table = check_syntax_table (table);
@@ -309,7 +309,7 @@ DEFUN ("modify-syntax-entry", Fmodify_syntax_entry, Smodify_syntax_entry, 2, 3,
309 if (match) p++; 309 if (match) p++;
310 if (match == ' ') match = 0; 310 if (match == ' ') match = 0;
311 311
312 XFASTINT (val) = (match << 8) + (int) code; 312 XSETFASTINT (val, (match << 8) + (int) code);
313 while (*p) 313 while (*p)
314 switch (*p++) 314 switch (*p++)
315 { 315 {
@@ -1273,7 +1273,7 @@ scan_lists (from, count, depth, sexpflag)
1273 1273
1274 1274
1275 immediate_quit = 0; 1275 immediate_quit = 0;
1276 XFASTINT (val) = from; 1276 XSETFASTINT (val, from);
1277 return val; 1277 return val;
1278 1278
1279 lose: 1279 lose:
@@ -1692,28 +1692,28 @@ init_syntax_once ()
1692 v = XVECTOR (Vstandard_syntax_table); 1692 v = XVECTOR (Vstandard_syntax_table);
1693 1693
1694 for (i = 'a'; i <= 'z'; i++) 1694 for (i = 'a'; i <= 'z'; i++)
1695 XFASTINT (v->contents[i]) = (int) Sword; 1695 XSETFASTINT (v->contents[i], (int) Sword);
1696 for (i = 'A'; i <= 'Z'; i++) 1696 for (i = 'A'; i <= 'Z'; i++)
1697 XFASTINT (v->contents[i]) = (int) Sword; 1697 XSETFASTINT (v->contents[i], (int) Sword);
1698 for (i = '0'; i <= '9'; i++) 1698 for (i = '0'; i <= '9'; i++)
1699 XFASTINT (v->contents[i]) = (int) Sword; 1699 XSETFASTINT (v->contents[i], (int) Sword);
1700 XFASTINT (v->contents['$']) = (int) Sword; 1700 XSETFASTINT (v->contents['$'], (int) Sword);
1701 XFASTINT (v->contents['%']) = (int) Sword; 1701 XSETFASTINT (v->contents['%'], (int) Sword);
1702 1702
1703 XFASTINT (v->contents['(']) = (int) Sopen + (')' << 8); 1703 XSETFASTINT (v->contents['('], (int) Sopen + (')' << 8));
1704 XFASTINT (v->contents[')']) = (int) Sclose + ('(' << 8); 1704 XSETFASTINT (v->contents[')'], (int) Sclose + ('(' << 8));
1705 XFASTINT (v->contents['[']) = (int) Sopen + (']' << 8); 1705 XSETFASTINT (v->contents['['], (int) Sopen + (']' << 8));
1706 XFASTINT (v->contents[']']) = (int) Sclose + ('[' << 8); 1706 XSETFASTINT (v->contents[']'], (int) Sclose + ('[' << 8));
1707 XFASTINT (v->contents['{']) = (int) Sopen + ('}' << 8); 1707 XSETFASTINT (v->contents['{'], (int) Sopen + ('}' << 8));
1708 XFASTINT (v->contents['}']) = (int) Sclose + ('{' << 8); 1708 XSETFASTINT (v->contents['}'], (int) Sclose + ('{' << 8));
1709 XFASTINT (v->contents['"']) = (int) Sstring; 1709 XSETFASTINT (v->contents['"'], (int) Sstring);
1710 XFASTINT (v->contents['\\']) = (int) Sescape; 1710 XSETFASTINT (v->contents['\\'], (int) Sescape);
1711 1711
1712 for (i = 0; i < 10; i++) 1712 for (i = 0; i < 10; i++)
1713 XFASTINT (v->contents["_-+*/&|<>="[i]]) = (int) Ssymbol; 1713 XSETFASTINT (v->contents["_-+*/&|<>="[i]], (int) Ssymbol);
1714 1714
1715 for (i = 0; i < 12; i++) 1715 for (i = 0; i < 12; i++)
1716 XFASTINT (v->contents[".,;:?!#@~^'`"[i]]) = (int) Spunct; 1716 XSETFASTINT (v->contents[".,;:?!#@~^'`"[i]], (int) Spunct);
1717} 1717}
1718 1718
1719syms_of_syntax () 1719syms_of_syntax ()