procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Qmenu_alias): New variable.

Browse source 
(syms_of_xmenu): Initialize it.
(menu_item_equiv_key): Check this property on the definition.
This commit is contained in:
Richard M. Stallman 1996-06-13 21:04:29 +00:00
parent 51b1d12e57
commit 67385caa0e
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/xmenu.c
View file

@ -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);