Commit 44e553a3 authored by Karl Heuer's avatar Karl Heuer
Browse files

(menu_item_eval_property): Bind Qinhibit_redisplay.

parent d74347bc
......@@ -5624,10 +5624,12 @@ static Lisp_Object
menu_item_eval_property (sexpr)
Lisp_Object sexpr;
{
int count = specpdl_ptr - specpdl;
Lisp_Object val;
specbind (Qinhibit_redisplay, Qt);
val = internal_condition_case_1 (Feval, sexpr, Qerror,
menu_item_eval_property_1);
return val;
return unbind_to (count, val);
}
/* This function parses a menu item and leaves the result in the
......
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