aboutsummaryrefslogtreecommitdiffstats
path: root/src/callint.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/callint.c')
-rw-r--r--src/callint.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/callint.c b/src/callint.c
index 5979e495ac..d44d2f20ca 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -408,8 +408,8 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
real_this_command= save_real_this_command;
current_kboard->Vlast_command = save_last_command;
- single_kboard_state ();
- return apply1 (function, specs);
+ temporarily_switch_to_single_kboard (NULL);
+ return unbind_to (speccount, apply1 (function, specs));
}
/* Here if function specifies a string to control parsing the defaults */
@@ -875,7 +875,7 @@ If KEYS is omitted or nil, the return value of `this-command-keys' is used. */)
real_this_command= save_real_this_command;
current_kboard->Vlast_command = save_last_command;
- single_kboard_state ();
+ temporarily_switch_to_single_kboard (NULL);
{
Lisp_Object val;