(read1): After #!, exit loop on eof.

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 6fb8aaf31ff..3aa05b6bcdb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-14  Richard M. Stallman  <rms@gnu.org>
+
+        * lread.c (read1): After #!, exit loop on eof.
+
 2003-03-14  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
         * gtkutil.h: Add declaration for xg_frame_cleared.
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)
         {
           /* #! appears at the beginning of an executable file.
              Skip the first line.  */
-          while (c != '\n')
+          while (c != '\n' && c >= 0)
             c = READCHAR;
           goto retry;
         }