1 files changed, 5 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 7ffc98b254f..2139d558851 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -830,7 +830,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
             ch = READCHAR;
 
           i = 0;
-          while (ch != ':' && ch != '\n' && ch != EOF)
+          while (ch != ':' && ch != '\n' && ch != EOF && in_file_vars)
             {
               if (i < sizeof var - 1)
                 var[i++] = ch;
@@ -838,6 +838,10 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
               ch = READCHAR;
             }
 
+          /* Stop scanning if no colon was found before end marker.  */
+          if (!in_file_vars)
+            break;
+
           while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t'))
             i--;
           var[i] = '\0';