Mercurial > emacs
diff src/lread.c @ 10163:70b04b218216
(readevalloop): Ignore ^M here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Dec 1994 01:57:36 +0000 |
| parents | d149c4dc84f3 |
| children | 899f5bd94bbb |
line wrap: on
line diff
--- a/src/lread.c Thu Dec 15 01:56:13 1994 +0000 +++ b/src/lread.c Thu Dec 15 01:57:36 1994 +0000 @@ -724,7 +724,10 @@ continue; } if (c < 0) break; - if (c == ' ' || c == '\t' || c == '\n' || c == '\f') continue; + + /* Ignore whitespace here, so we can detect eof. */ + if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r') + continue; if (!NILP (Vpurify_flag) && c == '(') {