From 44e553a3fc5c78cfd4a0e9b36a605926eaf68499 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 22 Jun 1998 17:34:59 +0000 Subject: [PATCH] (menu_item_eval_property): Bind Qinhibit_redisplay. --- src/keyboard.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/keyboard.c b/src/keyboard.c index fee59e3af95..9db0bca9683 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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 -- 2.39.2