diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c index 48849cccd2b..a2a18921bdc 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -842,7 +842,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun) | |||
| 842 | } | 842 | } |
| 843 | 843 | ||
| 844 | /* Stop scanning if no colon was found before end marker. */ | 844 | /* Stop scanning if no colon was found before end marker. */ |
| 845 | if (!in_file_vars) | 845 | if (!in_file_vars || ch == '\n' || ch == EOF) |
| 846 | break; | 846 | break; |
| 847 | 847 | ||
| 848 | while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t')) | 848 | while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t')) |
| @@ -866,8 +866,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun) | |||
| 866 | ch = READCHAR; | 866 | ch = READCHAR; |
| 867 | } | 867 | } |
| 868 | if (! in_file_vars) | 868 | if (! in_file_vars) |
| 869 | /* The value was terminated by an end-marker, which | 869 | /* The value was terminated by an end-marker, which remove. */ |
| 870 | remove. */ | ||
| 871 | i -= 3; | 870 | i -= 3; |
| 872 | while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t')) | 871 | while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t')) |
| 873 | i--; | 872 | i--; |