diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-15 01:57:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-15 01:57:36 +0000 |
| commit | fba5eace8374aacae866650208d0015984b0b12f (patch) | |
| tree | 13ffbaa015ad046c3c0fc8caa66cc44e6b7b9fbe /src | |
| parent | 965639d8494992b61bd4ae3537ec8c077060cb94 (diff) | |
| download | emacs-fba5eace8374aacae866650208d0015984b0b12f.tar.gz | |
(readevalloop): Ignore ^M here.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index a753eb91868..4034085a38b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -724,7 +724,10 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag) 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 == '(') { |