diff options
| author | Richard M. Stallman | 1995-06-17 23:48:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-17 23:48:10 +0000 |
| commit | 8fbc986d8696b048df9984593ea9e19ec2415ca7 (patch) | |
| tree | 03ce7a148df0458f1e1c9a0b4d23d9bf48ae17e0 | |
| parent | 107fd03d986957f38257b5e943852a255bdd9ba2 (diff) | |
| download | emacs-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.c | 12 |
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; | |||
| 86 | extern Lisp_Object Qmenu_bar; | 86 | extern Lisp_Object Qmenu_bar; |
| 87 | extern Lisp_Object Qmouse_click, Qevent_kind; | 87 | extern Lisp_Object Qmouse_click, Qevent_kind; |
| 88 | 88 | ||
| 89 | extern Lisp_Object Vdefine_key_rebound_commands; | ||
| 90 | |||
| 89 | #ifdef USE_X_TOOLKIT | 91 | #ifdef USE_X_TOOLKIT |
| 90 | extern void process_expose_from_menu (); | 92 | extern void process_expose_from_menu (); |
| 91 | extern XtAppContext Xt_app_con; | 93 | extern 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; |