(menu_item_equiv_key): Look for equiv keys both before
authorRichard M. Stallman <rms@gnu.org>
Wed, 25 May 1994 09:20:10 +0000 (09:20 +0000)
committerRichard M. Stallman <rms@gnu.org>
Wed, 25 May 1994 09:20:10 +0000 (09:20 +0000)
and after one stage of symbol function indirection.

src/xmenu.c

index 056ae04..ba92c90 100644 (file)
@@ -331,6 +331,13 @@ menu_item_equiv_key (item_string, item1, descrip_ptr)
       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;