diff options
| author | Glenn Morris | 2012-09-28 00:45:18 -0700 |
|---|---|---|
| committer | Glenn Morris | 2012-09-28 00:45:18 -0700 |
| commit | d2dd3694575406be063943bdf6e76ecbecebcc94 (patch) | |
| tree | 87d935fa7c47fe3cf665e121047b031f6c28cc36 /src/lread.c | |
| parent | 757140ff9aca7cce0096604c7e7b9cd5ffca914e (diff) | |
| download | emacs-d2dd3694575406be063943bdf6e76ecbecebcc94.tar.gz emacs-d2dd3694575406be063943bdf6e76ecbecebcc94.zip | |
Comment
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 2 insertions, 0 deletions
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) | |||
| 784 | while (ch != '\n' && ch != EOF) | 784 | while (ch != '\n' && ch != EOF) |
| 785 | ch = READCHAR; | 785 | ch = READCHAR; |
| 786 | if (ch == '\n') ch = READCHAR; | 786 | if (ch == '\n') ch = READCHAR; |
| 787 | /* It is OK to leave the position after a #! line, since | ||
| 788 | that is what read1 does. */ | ||
| 787 | } | 789 | } |
| 788 | 790 | ||
| 789 | if (ch != ';') | 791 | if (ch != ';') |