# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834699869 0
# Node ID 55a2ea0e640c932f9d9bf24a7d4559111153e5d5
# Parent  97557b39e3b7405f08a474e2365b65fb4142a801
(Qmenu_alias): New variable.
(syms_of_xmenu): Initialize it.
(menu_item_equiv_key): Check this property on the definition.

diff -r 97557b39e3b7 -r 55a2ea0e640c src/xmenu.c
--- a/src/xmenu.c	Thu Jun 13 19:09:32 1996 +0000
+++ b/src/xmenu.c	Thu Jun 13 21:04:29 1996 +0000
@@ -88,6 +88,8 @@
 
 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 @@
       /* 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 @@
   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);