Commit c970a760 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fexecute_extended_command): Use a

record_unwind_protect to ensure that pop_message is called.
parent 98edb5ff
......@@ -9070,6 +9070,8 @@ a special event, so ignore the prefix argument and don't clear it.")
}
return Qnil;
}
DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
1, 1, "P",
......@@ -9192,7 +9194,9 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
Lisp_Object binding;
char *newmessage;
int message_p = push_message ();
int count = BINDING_STACK_SIZE ();
record_unwind_protect (push_message_unwind, Qnil);
binding = Fkey_description (bindings);
newmessage
......@@ -9211,7 +9215,7 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
&& message_p)
restore_message ();
pop_message ();
unbind_to (count, Qnil);
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment