changeset 83149:f004099bad61

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
author Karoly Lorentey <lorentey@elte.hu>
date Mon, 07 Jun 2004 07:10:59 +0000
parents 33462a853808
children cf8f0a3b5cb4
files src/keyboard.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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;