* src/lread.c (readchar): Don't read from a dead buffer. (Bug#14280)

2 files changed, 7 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 4b71eed9c21..cfa10f7bfb2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-07  Glenn Morris  <rgm@gnu.org>
+
+        * lread.c (readchar): Don't read from a dead buffer.  (Bug#14280)
+
 2013-05-07  Jan Djärv  <jan.h.d@swipnet.se>
 
         * xfns.c: Move misplaced ifndef USE_GTK from previous checkin.
diff --git a/src/lread.c b/src/lread.c
index 1a8a57e57a7..272f252cf7b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -201,6 +201,9 @@ readchar (Lisp_Object readcharfun, bool *multibyte)
 
       ptrdiff_t pt_byte = BUF_PT_BYTE (inbuffer);
 
+      if (! BUFFER_LIVE_P (inbuffer))
+        return -1;
+
       if (pt_byte >= BUF_ZV_BYTE (inbuffer))
         return -1;