Mercurial > emacs
comparison src/lread.c @ 49979:975bc8dd3172
(read1): Accept `single space' syntax like (? x).
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 25 Feb 2003 12:29:03 +0000 |
| parents | fc287c6fe322 |
| children | 75ed0f4a2f18 |
comparison
equal
deleted
inserted
replaced
| 49978:1687b79d54e7 | 49979:975bc8dd3172 |
|---|---|
| 2255 int ok; | 2255 int ok; |
| 2256 | 2256 |
| 2257 c = READCHAR; | 2257 c = READCHAR; |
| 2258 if (c < 0) | 2258 if (c < 0) |
| 2259 end_of_file_error (); | 2259 end_of_file_error (); |
| 2260 | |
| 2261 /* Accept `single space' syntax like (list ? x) where the | |
| 2262 whitespace character is SPC or TAB. | |
| 2263 Other literal whitespace like NL, CR, and FF are not accepted, | |
| 2264 as there are well-established escape sequences for these. */ | |
| 2265 if (c == ' ' || c == '\t') | |
| 2266 return make_number (c); | |
| 2260 | 2267 |
| 2261 if (c == '\\') | 2268 if (c == '\\') |
| 2262 c = read_escape (readcharfun, 0, &discard); | 2269 c = read_escape (readcharfun, 0, &discard); |
| 2263 else if (BASE_LEADING_CODE_P (c)) | 2270 else if (BASE_LEADING_CODE_P (c)) |
| 2264 c = read_multibyte (c, readcharfun); | 2271 c = read_multibyte (c, readcharfun); |