# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797498535 0
# Node ID c4adea8f75435525f9dfd867aeecf6cfb7469c95
# Parent  6f5c3bb789a5fff7da596733bcb62b0ad22c20e3
(Fcall_interactively): Call single_kboard_state
to switch to the single-kboard state.

diff -r 6f5c3bb789a5 -r c4adea8f7543 src/callint.c
--- a/src/callint.c	Mon Apr 10 07:11:42 1995 +0000
+++ b/src/callint.c	Mon Apr 10 07:22:15 1995 +0000
@@ -296,9 +296,7 @@
     }
   else if (EQ (funcar, Qmocklisp))
     {
-#ifdef MULTI_KBOARD
-      kboard_locked = 1;
-#endif
+      single_kboard_state ();
       return ml_apply (fun, Qinteractive);
     }
   else
@@ -352,9 +350,7 @@
 	  Vcommand_history
 	    = Fcons (Fcons (function, values), Vcommand_history);
 	}
-#ifdef MULTI_KBOARD
-      kboard_locked = 1;
-#endif
+      single_kboard_state ();
       return apply1 (function, specs);
     }
 
@@ -661,9 +657,7 @@
     if (varies[i] >= 1 && varies[i] <= 4)
       XSETINT (args[i], marker_position (args[i]));
 
-#ifdef MULTI_KBOARD
-  kboard_locked = 1;
-#endif
+  single_kboard_state ();
 
   {
     Lisp_Object val;