Mercurial > emacs

changeset 10163:70b04b218216

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(readevalloop): Ignore ^M here.
author Richard M. Stallman <rms@gnu.org>
date Thu, 15 Dec 1994 01:57:36 +0000
parents 58037e770f67
children d16e46a4e34c
files src/lread.c
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Thu Dec 15 01:56:13 1994 +0000
+++ b/src/lread.c	Thu Dec 15 01:57:36 1994 +0000
@@ -724,7 +724,10 @@
 	  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 == '(')
 	{