From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 22 Jun 1998 17:34:59 +0000 (+0000)
Subject: (menu_item_eval_property): Bind Qinhibit_redisplay.
X-Git-Tag: emacs-20.3~537
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44e553a3fc5c78cfd4a0e9b36a605926eaf68499;p=emacs.git

(menu_item_eval_property): Bind Qinhibit_redisplay.
---

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