From 67385caa0ef5771b59bce4aaeff8036346c5f89b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Jun 1996 21:04:29 +0000 Subject: [PATCH] (Qmenu_alias): New variable. (syms_of_xmenu): Initialize it. (menu_item_equiv_key): Check this property on the definition. --- src/xmenu.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/xmenu.c b/src/xmenu.c index 1ea7140d50f..e801cc31351 100644 --- a/src/xmenu.c +++ b/src/xmenu.c @@ -88,6 +88,8 @@ Boston, MA 02111-1307, USA. */ Lisp_Object Qdebug_on_next_call; +Lisp_Object Qmenu_alias; + extern Lisp_Object Qmenu_enable; extern Lisp_Object Qmenu_bar; extern Lisp_Object Qmouse_click, Qevent_kind; @@ -396,7 +398,8 @@ menu_item_equiv_key (item_string, item1, descrip_ptr) /* 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)) + if (SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function) + && ! NILP (Fget (def, Qmenu_alias))) savedkey = Fwhere_is_internal (XSYMBOL (def)->function, Qnil, Qt, Qnil); else @@ -2649,6 +2652,9 @@ syms_of_xmenu () staticpro (&menu_items); menu_items = Qnil; + Qmenu_alias = intern ("menu-alias"); + staticpro (&Qmenu_alias); + Qdebug_on_next_call = intern ("debug-on-next-call"); staticpro (&Qdebug_on_next_call); -- 2.39.5