Mercurial > emacs

changeset 15428:55a2ea0e640c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qmenu_alias): New variable. (syms_of_xmenu): Initialize it. (menu_item_equiv_key): Check this property on the definition.
author Richard M. Stallman <rms@gnu.org>
date Thu, 13 Jun 1996 21:04:29 +0000
parents 97557b39e3b7
children 34acde979294
files src/xmenu.c
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);