aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-06-17 23:48:10 +0000
committerRichard M. Stallman1995-06-17 23:48:10 +0000
commit8fbc986d8696b048df9984593ea9e19ec2415ca7 (patch)
tree03ce7a148df0458f1e1c9a0b4d23d9bf48ae17e0
parent107fd03d986957f38257b5e943852a255bdd9ba2 (diff)
downloademacs-8fbc986d8696b048df9984593ea9e19ec2415ca7.tar.gz
emacs-8fbc986d8696b048df9984593ea9e19ec2415ca7.zip
(menu_item_equiv_key): Do reconsider a command that had
no equivalent before, if it is in Vdefine_key_rebound_commands.
-rw-r--r--src/xmenu.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/src/xmenu.c b/src/xmenu.c
index dad781e67b1..fc7615e9fdd 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -86,6 +86,8 @@ extern Lisp_Object Qmenu_enable;
86extern Lisp_Object Qmenu_bar; 86extern Lisp_Object Qmenu_bar;
87extern Lisp_Object Qmouse_click, Qevent_kind; 87extern Lisp_Object Qmouse_click, Qevent_kind;
88 88
89extern Lisp_Object Vdefine_key_rebound_commands;
90
89#ifdef USE_X_TOOLKIT 91#ifdef USE_X_TOOLKIT
90extern void process_expose_from_menu (); 92extern void process_expose_from_menu ();
91extern XtAppContext Xt_app_con; 93extern XtAppContext Xt_app_con;
@@ -381,9 +383,13 @@ menu_item_equiv_key (item_string, item1, descrip_ptr)
381 check if the original command matches the cached command. */ 383 check if the original command matches the cached command. */
382 && !(SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function) 384 && !(SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function)
383 && EQ (def1, XSYMBOL (def)->function)) 385 && EQ (def1, XSYMBOL (def)->function))
384 /* If something had no key binding before, don't recheck it-- 386 /* If something had no key binding before, don't recheck it
385 doing that takes too much time and makes menus too slow. */ 387 because that is too slow--except if we have a list of rebound
386 && !(!NILP (cachelist) && NILP (savedkey))) 388 commands in Vdefine_key_rebound_commands, do recheck any command
389 that appears in that list. */
390 && (NILP (cachelist) || !NILP (savedkey)
391 || (! EQ (Qt, Vdefine_key_rebound_commands)
392 && !NILP (Fmemq (def, Vdefine_key_rebound_commands)))))
387 { 393 {
388 changed = 1; 394 changed = 1;
389 descrip = Qnil; 395 descrip = Qnil;