diff options
| author | Karl Heuer | 1994-10-04 16:13:34 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-10-04 16:13:34 +0000 |
| commit | 1e142fb79d41c2256977a22f0996d20caa121bfd (patch) | |
| tree | eea6c8e718444720a8ef69eba0e56ba651847c9d | |
| parent | c235cce70362414fa1f3edde98bd3677b907ec31 (diff) | |
| download | emacs-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.c | 40 |
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 | ||
| 1719 | syms_of_syntax () | 1719 | syms_of_syntax () |