Mercurial > emacs
comparison src/syntax.c @ 9320:4be3f8f9f090
(Fcopy_syntax_table, Fmodify_syntax_entry, scan_lists, init_syntax_once):
Don't use XFASTINT as an lvalue.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 04 Oct 1994 16:13:34 +0000 |
parents | b2596f9e624c |
children | 925795f1a594 |
comparison
equal
deleted
inserted
replaced
9319:7969182b6cc6 | 9320:4be3f8f9f090 |
---|---|
150 It is a copy of the TABLE, which defaults to the standard syntax table.") | 150 It is a copy of the TABLE, which defaults to the standard syntax table.") |
151 (table) | 151 (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); |
160 else if (NILP (Vstandard_syntax_table)) | 160 else if (NILP (Vstandard_syntax_table)) |
161 /* Can only be null during initialization */ | 161 /* Can only be null during initialization */ |
307 | 307 |
308 match = *p; | 308 match = *p; |
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 { |
316 case '1': | 316 case '1': |
317 XFASTINT (val) |= 1 << 16; | 317 XFASTINT (val) |= 1 << 16; |
1271 count++; | 1271 count++; |
1272 } | 1272 } |
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: |
1280 error ("Unbalanced parentheses"); | 1280 error ("Unbalanced parentheses"); |
1281 /* NOTREACHED */ | 1281 /* NOTREACHED */ |
1690 Vstandard_syntax_table = Fcopy_syntax_table (Qnil); | 1690 Vstandard_syntax_table = Fcopy_syntax_table (Qnil); |
1691 | 1691 |
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 () |
1720 { | 1720 { |
1721 Qsyntax_table_p = intern ("syntax-table-p"); | 1721 Qsyntax_table_p = intern ("syntax-table-p"); |