From d2dd3694575406be063943bdf6e76ecbecebcc94 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Fri, 28 Sep 2012 00:45:18 -0700
Subject: [PATCH] Comment

---
 src/lread.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index 0b7fd9067dc..d22011be7c8 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -784,6 +784,8 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
       while (ch != '\n' && ch != EOF)
         ch = READCHAR;
       if (ch == '\n') ch = READCHAR;
+      /* It is OK to leave the position after a #! line, since
+         that is what read1 does.  */
     }
 
   if (ch != ';')
-- 
2.39.2