Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
0a37f512
Commit
0a37f512
authored
Nov 16, 2005
by
Stefan Monnier
Browse files
(readevalloop): Add missing GCPROs.
parent
c01f0ed3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
3 deletions
+3
-3
src/lread.c
src/lread.c
+3
-3
No files found.
src/lread.c
View file @
0a37f512
...
...
@@ -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
;
GCPRO
1
(
sourcename
);
GCPRO
4
(
sourcename
,
readfun
,
start
,
end
);
LOADHIST_ATTACH
(
sourcename
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment