Commit 757140ff authored by Glenn Morris's avatar Glenn Morris

* src/lread.c (lisp_file_lexically_bound_p): Handle #! lines.

Fixes: debbugs:12528
parent 5bc93c67
2012-09-28 Glenn Morris <rgm@gnu.org>
* lread.c (lisp_file_lexically_bound_p): Handle #! lines. (Bug#12528)
2012-09-27 Paul Eggert <eggert@cs.ucla.edu>
Check more robustly for timer_settime.
......
......@@ -764,13 +764,28 @@ DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0,
/* Return true if the lisp code read using READCHARFUN defines a non-nil
`lexical-binding' file variable. After returning, the stream is
positioned following the first line, if it is a comment, otherwise
nothing is read. */
positioned following the first line, if it is a comment or #! line,
otherwise nothing is read. */
static int
lisp_file_lexically_bound_p (Lisp_Object readcharfun)
{
int ch = READCHAR;
if (ch == '#')
{
ch = READCHAR;
if (ch != '!')
{
UNREAD (ch);
UNREAD ('#');
return 0;
}
while (ch != '\n' && ch != EOF)
ch = READCHAR;
if (ch == '\n') ch = READCHAR;
}
if (ch != ';')
/* The first line isn't a comment, just give up. */
{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment