aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c
index 353f4a3064d..b6135429b48 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -839,7 +839,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
839 } 839 }
840 840
841 /* Stop scanning if no colon was found before end marker. */ 841 /* Stop scanning if no colon was found before end marker. */
842 if (!in_file_vars) 842 if (!in_file_vars || ch == '\n' || ch == EOF)
843 break; 843 break;
844 844
845 while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t')) 845 while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t'))
@@ -863,8 +863,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
863 ch = READCHAR; 863 ch = READCHAR;
864 } 864 }
865 if (! in_file_vars) 865 if (! in_file_vars)
866 /* The value was terminated by an end-marker, which 866 /* The value was terminated by an end-marker, which remove. */
867 remove. */
868 i -= 3; 867 i -= 3;
869 while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t')) 868 while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t'))
870 i--; 869 i--;