diff options
| author | Richard M. Stallman | 1994-06-07 18:31:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-07 18:31:56 +0000 |
| commit | cc1032b3f376281e724c2f2903a6e5f23ec42db7 (patch) | |
| tree | 2bc7ac66f350bd7d883647cc5bcdd1e42bc6393a /src | |
| parent | 6ee37df2e65931026cb3c46b9359ab79d8027dc1 (diff) | |
| download | emacs-cc1032b3f376281e724c2f2903a6e5f23ec42db7.tar.gz emacs-cc1032b3f376281e724c2f2903a6e5f23ec42db7.zip | |
(menu_item_equiv_key): Check whether def1 matches
un-aliased command name as well as given command name.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xmenu.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/xmenu.c b/src/xmenu.c index a00bcb1a78b..3a0e2137cbe 100644 --- a/src/xmenu.c +++ b/src/xmenu.c | |||
| @@ -324,6 +324,11 @@ menu_item_equiv_key (item_string, item1, descrip_ptr) | |||
| 324 | def1 = Fkey_binding (savedkey, Qnil); | 324 | def1 = Fkey_binding (savedkey, Qnil); |
| 325 | /* If not, update it. */ | 325 | /* If not, update it. */ |
| 326 | if (! EQ (def1, def) | 326 | if (! EQ (def1, def) |
| 327 | /* If the command is an alias for another | ||
| 328 | (such as easymenu.el and lmenu.el set it up), | ||
| 329 | check if the original command matches the cached command. */ | ||
| 330 | && !(SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function) | ||
| 331 | && EQ (def1, XSYMBOL (def)->function)) | ||
| 327 | /* If something had no key binding before, don't recheck it-- | 332 | /* If something had no key binding before, don't recheck it-- |
| 328 | doing that takes too much time and makes menus too slow. */ | 333 | doing that takes too much time and makes menus too slow. */ |
| 329 | && !(!NILP (cachelist) && NILP (savedkey))) | 334 | && !(!NILP (cachelist) && NILP (savedkey))) |