Mercurial > emacs
changeset 7679:5475c6144371
(menu_item_equiv_key): Look for equiv keys both before
and after one stage of symbol function indirection.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 May 1994 09:20:10 +0000 |
| parents | 3eb816e254e6 |
| children | 8212755ff793 |
| files | src/xmenu.c |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xmenu.c Wed May 25 08:42:32 1994 +0000 +++ b/src/xmenu.c Wed May 25 09:20:10 1994 +0000 @@ -331,6 +331,13 @@ changed = 1; descrip = Qnil; savedkey = Fwhere_is_internal (def, Qnil, Qt, Qnil); + /* If the command is an alias for another + (such as easymenu.el and lmenu.el set it up), + see if the original command name has equivalent keys. */ + if (SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function)) + savedkey = Fwhere_is_internal (XSYMBOL (def)->function, + Qnil, Qt, Qnil); + if (VECTORP (savedkey) && EQ (XVECTOR (savedkey)->contents[0], Qmenu_bar)) savedkey = Qnil;