1697 |
return c | alt_modifier; |
return c | alt_modifier; |
1698 |
|
|
1699 |
case 's': |
case 's': |
1700 |
|
if (stringp) |
1701 |
|
return ' '; |
1702 |
c = READCHAR; |
c = READCHAR; |
1703 |
if (c != '-') |
if (c != '-') { |
1704 |
error ("Invalid escape character syntax"); |
UNREAD (c); |
1705 |
|
return ' '; |
1706 |
|
} |
1707 |
c = READCHAR; |
c = READCHAR; |
1708 |
if (c == '\\') |
if (c == '\\') |
1709 |
c = read_escape (readcharfun, 0, byterep); |
c = read_escape (readcharfun, 0, byterep); |
2251 |
case '?': |
case '?': |
2252 |
{ |
{ |
2253 |
int discard; |
int discard; |
2254 |
|
int nextc; |
2255 |
|
|
2256 |
c = READCHAR; |
c = READCHAR; |
2257 |
if (c < 0) |
if (c < 0) |
2262 |
else if (BASE_LEADING_CODE_P (c)) |
else if (BASE_LEADING_CODE_P (c)) |
2263 |
c = read_multibyte (c, readcharfun); |
c = read_multibyte (c, readcharfun); |
2264 |
|
|
2265 |
|
nextc = READCHAR; |
2266 |
|
UNREAD (nextc); |
2267 |
|
if (nextc > 040 |
2268 |
|
&& !(nextc == '?' |
2269 |
|
|| nextc == '\"' || nextc == '\'' || nextc == ';' |
2270 |
|
|| nextc == '(' || nextc == ')' |
2271 |
|
|| nextc == '[' || nextc == ']' || nextc == '#')) |
2272 |
|
Fsignal (Qinvalid_read_syntax, Fcons (make_string ("?", 1), Qnil)); |
2273 |
|
|
2274 |
return make_number (c); |
return make_number (c); |
2275 |
} |
} |
2276 |
|
|