Mercurial > emacs
diff src/xmenu.c @ 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 | 9e9b7a0eebc6 |
children | 41dda174ca7c |
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;