Mercurial > emacs

changeset 11345:c4adea8f7543

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_interactively): Call single_kboard_state to switch to the single-kboard state.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Apr 1995 07:22:15 +0000
parents 6f5c3bb789a5
children c174158fff45
files src/callint.c
diffstat 1 files changed, 3 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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;