diff options
| author | Richard M. Stallman | 1994-12-15 01:57:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-15 01:57:36 +0000 |
| commit | 6069d957df5e40db5185d13fc353dcd15def388f (patch) | |
| tree | 2f8a1a4f78031e89415ad4b0dd52fefafaead326 | |
| parent | 487d5fb248c6640aa8d79eb58ec344c5ec2665ac (diff) | |
| download | emacs-6069d957df5e40db5185d13fc353dcd15def388f.tar.gz emacs-6069d957df5e40db5185d13fc353dcd15def388f.zip | |
(readevalloop): Ignore ^M here.
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 4 insertions, 1 deletions
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) | |||
| 724 | continue; | 724 | continue; |
| 725 | } | 725 | } |
| 726 | if (c < 0) break; | 726 | if (c < 0) break; |
| 727 | if (c == ' ' || c == '\t' || c == '\n' || c == '\f') continue; | 727 | |
| 728 | /* Ignore whitespace here, so we can detect eof. */ | ||
| 729 | if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r') | ||
| 730 | continue; | ||
| 728 | 731 | ||
| 729 | if (!NILP (Vpurify_flag) && c == '(') | 732 | if (!NILP (Vpurify_flag) && c == '(') |
| 730 | { | 733 | { |