]> git.eshelyaron.com Git - emacs.git/commitdiff
(readevalloop): Ignore ^M here.
authorRichard M. Stallman <rms@gnu.org>
Thu, 15 Dec 1994 01:57:36 +0000 (01:57 +0000)
committerRichard M. Stallman <rms@gnu.org>
Thu, 15 Dec 1994 01:57:36 +0000 (01:57 +0000)
src/lread.c

index a753eb91868f23dfd7cadf6856ca72e649ad171b..4034085a38b5a8a8893c020509d5ef71b83726e0 100644 (file)
@@ -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 == '(')
        {