diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-10 07:22:15 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-10 07:22:15 +0000 |
commit | 340531be3fcafa96776705cc94cd27f39872bf10 (patch) | |
tree | b09bd1ac39a1f6af675be40a684651e11a7ba2ad /src/callint.c | |
parent | cd1c889655992a268827758207763b164dfbed06 (diff) | |
download | emacs-340531be3fcafa96776705cc94cd27f39872bf10.tar.gz |
(Fcall_interactively): Call single_kboard_state
to switch to the single-kboard state.
Diffstat (limited to 'src/callint.c')
-rw-r--r-- | src/callint.c | 12 |
1 files changed, 3 insertions, 9 deletions
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; |