From 225c7a073290d64f90a5cd483697a03ce289ae1b Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 14 Mar 2003 23:05:10 +0000
Subject: [PATCH] (read1): After #!, exit loop on eof.

---
 src/ChangeLog | 4 ++++
 src/lread.c   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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;
 	}
-- 
2.11.4.GIT