diff options
| author | Richard M. Stallman | 2003-03-14 23:05:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-03-14 23:05:10 +0000 |
| commit | 225c7a073290d64f90a5cd483697a03ce289ae1b (patch) | |
| tree | 2bc749a5cb4793099f25a2d28e9706ad565dbadd /src/lread.c | |
| parent | 194600a8fa08104045698f0a9be6d6c3fe8b8f7e (diff) | |
| download | emacs-225c7a073290d64f90a5cd483697a03ce289ae1b.tar.gz emacs-225c7a073290d64f90a5cd483697a03ce289ae1b.zip | |
(read1): After #!, exit loop on eof.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 70f0a3f2f9b..dfbbfeaad1e 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2127,7 +2127,7 @@ read1 (readcharfun, pch, first_in_list) | |||
| 2127 | { | 2127 | { |
| 2128 | /* #! appears at the beginning of an executable file. | 2128 | /* #! appears at the beginning of an executable file. |
| 2129 | Skip the first line. */ | 2129 | Skip the first line. */ |
| 2130 | while (c != '\n') | 2130 | while (c != '\n' && c >= 0) |
| 2131 | c = READCHAR; | 2131 | c = READCHAR; |
| 2132 | goto retry; | 2132 | goto retry; |
| 2133 | } | 2133 | } |