Mercurial > emacs
changeset 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 | 1687b79d54e7 |
| children | 134f7d22f54a |
| files | src/lread.c |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Tue Feb 25 06:19:36 2003 +0000 +++ b/src/lread.c Tue Feb 25 12:29:03 2003 +0000 @@ -2258,6 +2258,13 @@ if (c < 0) end_of_file_error (); + /* Accept `single space' syntax like (list ? x) where the + whitespace character is SPC or TAB. + Other literal whitespace like NL, CR, and FF are not accepted, + as there are well-established escape sequences for these. */ + if (c == ' ' || c == '\t') + return make_number (c); + if (c == '\\') c = read_escape (readcharfun, 0, &discard); else if (BASE_LEADING_CODE_P (c))