summaryrefslogtreecommitdiff
path: root/src/lread.c
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-12-15 01:57:36 +0000
committerRichard M. Stallman <rms@gnu.org>1994-12-15 01:57:36 +0000
commitfba5eace8374aacae866650208d0015984b0b12f (patch)
tree13ffbaa015ad046c3c0fc8caa66cc44e6b7b9fbe /src/lread.c
parent965639d8494992b61bd4ae3537ec8c077060cb94 (diff)
downloademacs-fba5eace8374aacae866650208d0015984b0b12f.tar.gz
(readevalloop): Ignore ^M here.
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c5
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 == '(')
{