# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754280334 0
# Node ID 52629d087993e307cee67ea4b71cd7b29dcbde69
# Parent  9f18f50000e5f368f77e405877731bc546784ed5
(readevalloop): Get error if buffer being eval'd is killed.

diff -r 9f18f50000e5 -r 52629d087993 src/lread.c
--- a/src/lread.c	Thu Nov 25 21:47:07 1993 +0000
+++ b/src/lread.c	Fri Nov 26 02:18:54 1993 +0000
@@ -618,6 +618,12 @@
   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 @@
 
   while (1)
     {
+      if (b != 0 && NILP (b->name))
+	error ("Reading from killed buffer");
+
       instream = stream;
       c = READCHAR;
       if (c == ';')