mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 21:20:45 -08:00
Code Issues Projects Releases Wiki Activity

* src/lread.c (lisp_file_lexically_bound_p): Stop scanning at end

Browse source 
marker.  (Bug#8610)
This commit is contained in:
Andreas Schwab 2011-05-05 18:56:39 +02:00
parent a6bc05e123
commit db7a0b4f1d
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -1,3 +1,8 @@
2011-05-05 Andreas Schwab <schwab@linux-m68k.org>
* lread.c (lisp_file_lexically_bound_p): Stop scanning at end
marker. (Bug#8610)
2011-05-05 Eli Zaretskii <eliz@gnu.org>
* w32heap.c (allocate_heap) [USE_LISP_UNION_TYPE || USE_LSB_TAG]:

6
src/lread.c
View file

@ -830,7 +830,7 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
ch = READCHAR;
i = 0;
while (ch != ':' && ch != '\n' && ch != EOF)
while (ch != ':' && ch != '\n' && ch != EOF && in_file_vars)
{
if (i < sizeof var - 1)
var[i++] = ch;
@ -838,6 +838,10 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
ch = READCHAR;
}
/* Stop scanning if no colon was found before end marker. */
if (!in_file_vars)
break;
while (i > 0 && (var[i - 1] == ' ' || var[i - 1] == '\t'))
i--;
var[i] = '\0';