# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760930164 0
# Node ID 0d02ee7ee6598c569a5d236290453c38f15666c0
# Parent  c4030d39f26d6228493b1808df22795aa7ae05d8
(read_filtered_event): Retry read_char after a buffer change.

diff -r c4030d39f26d -r 0d02ee7ee659 src/lread.c
--- a/src/lread.c	Fri Feb 11 00:13:59 1994 +0000
+++ b/src/lread.c	Fri Feb 11 01:29:24 1994 +0000
@@ -216,6 +216,9 @@
  retry:
   val = read_char (0, 0, 0, Qnil, 0);
 
+  if (XTYPE (val) == Lisp_Buffer)
+    goto retry;
+
   /* switch-frame events are put off until after the next ASCII
      character.  This is better than signalling an error just because
      the last characters were typed to a separate minibuffer frame,