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
49cf7ff4
Commit
49cf7ff4
authored
Nov 26, 1993
by
Richard M. Stallman
Browse files
(readevalloop): Get error if buffer being eval'd is killed.
parent
2752c6f9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
0 deletions
+9
-0
src/lread.c
src/lread.c
+9
-0
No files found.
src/lread.c
View file @
49cf7ff4
...
...
@@ -618,6 +618,12 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag)
register
Lisp_Object
val
;
int
count
=
specpdl_ptr
-
specpdl
;
struct
gcpro
gcpro1
;
struct
buffer
*
b
=
0
;
if
(
BUFFERP
(
readcharfun
))
b
=
XBUFFER
(
readcharfun
);
else
if
(
MARKERP
(
readcharfun
))
b
=
XMARKER
(
readcharfun
)
->
buffer
;
specbind
(
Qstandard_input
,
readcharfun
);
specbind
(
Qcurrent_load_list
,
Qnil
);
...
...
@@ -628,6 +634,9 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag)
while
(
1
)
{
if
(
b
!=
0
&&
NILP
(
b
->
name
))
error
(
"Reading from killed buffer"
);
instream
=
stream
;
c
=
READCHAR
;
if
(
c
==
';'
)
...
...
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