From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Apr 1995 07:22:15 +0000 (+0000)
Subject: (Fcall_interactively): Call single_kboard_state
X-Git-Tag: emacs-19.34~4513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=652e2240620fcbda4b57002a0cf9ea1385288e34;p=emacs.git

(Fcall_interactively): Call single_kboard_state
to switch to the single-kboard state.
---

diff --git a/src/callint.c b/src/callint.c
index 11c18b3f97f..8fbd45c3614 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -296,9 +296,7 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
     }
   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 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
 	  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 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
     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;