From 6069d957df5e40db5185d13fc353dcd15def388f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Dec 1994 01:57:36 +0000 Subject: [PATCH] (readevalloop): Ignore ^M here. --- src/lread.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 == '(') { -- 2.39.5