X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fevent-stream.c;h=3585a3bc6ddf5d6b26d7a9ff0ea1ee8a3d749b16;hb=426fe636212336bb32a5e6f187c4d623709fa57d;hp=644eba270ab3ee2bb6192eb0168165170761e525;hpb=21db8709c0c2dcedbd278c7fe571290d5ce80a71;p=chise%2Fxemacs-chise.git

diff --git a/src/event-stream.c b/src/event-stream.c
index 644eba2..3585a3b 100644
--- a/src/event-stream.c
+++ b/src/event-stream.c
@@ -4303,6 +4303,7 @@ See `function-key-map' for more details.
   struct gcpro gcpro1;
   GCPRO1 (event);
 
+  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
   if (!NILP (prompt))
     CHECK_STRING (prompt);
   /* else prompt = Fkeymap_prompt (current_buffer->keymap); may GC */