(readevalloop): Ignore ^M here.

6069d957 · Richard M. Stallman · 487d5fb2 · 6069d957
Commit 6069d957 authored Dec 15, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

src/lread.c src/lread.c +4 -1

No files found.
--- 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 == '(')
 	{