mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

(readevalloop): Add missing GCPROs.

Browse source
This commit is contained in:
Stefan Monnier 2005-11-16 18:39:15 +00:00
parent c01f0ed303
commit 0a37f51211
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lread.c
View file

@ -1316,7 +1316,7 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
register int c;
register Lisp_Object val;
int count = SPECPDL_INDEX ();
struct gcpro gcpro1;
struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
struct buffer *b = 0;
int continue_reading_p;
@ -1325,14 +1325,14 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
else if (MARKERP (readcharfun))
b = XMARKER (readcharfun)->buffer;
specbind (Qstandard_input, readcharfun);
specbind (Qstandard_input, readcharfun); /* GCPROs readcharfun. */
specbind (Qcurrent_load_list, Qnil);
record_unwind_protect (readevalloop_1, load_convert_to_unibyte ? Qt : Qnil);
load_convert_to_unibyte = !NILP (unibyte);
readchar_backlog = -1;
GCPRO1 (sourcename);
GCPRO4 (sourcename, readfun, start, end);
LOADHIST_ATTACH (sourcename);