projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
XEmacs 21.4.7 "Economic Science".
[chise/xemacs-chise.git.1] / src / event-stream.c
diff --git a/src/event-stream.c b/src/event-stream.c
index 644eba2..3585a3b 100644 (file)
--- 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 */