From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Dec 1994 01:57:36 +0000 (+0000)
Subject: (readevalloop): Ignore ^M here.
X-Git-Tag: emacs-19.34~5692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6069d957df5e40db5185d13fc353dcd15def388f;p=emacs.git

(readevalloop): Ignore ^M here.
---

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 == '(')
 	{