# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1086592259 0
# Node ID f004099bad61c5093d358eb80f6694ac919db35c
# Parent  33462a85380865894a6903456b651afc8402f804
Clear single_kboard each time Emacs returns to top-level.

* src/keyboard.c (command_loop): Clear single_kboard each time Emacs
  returns to top-level.


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-189

diff -r 33462a853808 -r f004099bad61 src/keyboard.c
--- a/src/keyboard.c	Mon Jun 07 05:30:42 2004 +0000
+++ b/src/keyboard.c	Mon Jun 07 07:10:59 2004 +0000
@@ -1234,6 +1234,10 @@
     while (1)
       {
 	internal_catch (Qtop_level, top_level_1, Qnil);
+        /* Reset single_kboard in case top-level set it while
+           evaluating an -f option, or we are stuck there for some
+           other reason. */
+        any_kboard_state ();
 	internal_catch (Qtop_level, command_loop_2, Qnil);
 	executing_macro = Qnil;