diff options
| author | Atsuo Ohki <ohki@gssm.otsuka.tsukuba.ac.jp> | 2012-04-13 14:08:18 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-13 14:08:18 -0400 |
| commit | ad3a2b411dc2b34f5d6fa434aee3ca56fa7a88e7 (patch) | |
| tree | f4ef969eb6844d2d333a1804db08ffb0024f005c /src/lread.c | |
| parent | 9557e2beb204f24dc13bac994fd1f42271999f05 (diff) | |
| download | emacs-ad3a2b411dc2b34f5d6fa434aee3ca56fa7a88e7.tar.gz | |
* lread.c (lisp_file_lexically_bound_p): Fix hang at ";-*-\n".
Fixes: debbugs:11238
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 353f4a3064d..b6135429b48 100644 --- a/src/lread.c +++ b/src/lread.c @@ -839,7 +839,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun) } /* Stop scanning if no colon was found before end marker. */ - if (!in_file_vars) + if (!in_file_vars || ch == '\n' || ch == EOF) break; while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t')) @@ -863,8 +863,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun) ch = READCHAR; } if (! in_file_vars) - /* The value was terminated by an end-marker, which - remove. */ + /* The value was terminated by an end-marker, which remove. */ i -= 3; while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t')) i--; |