(parse_menu_item): Don't display remappings as menu equivalent bindings (Bug#788).

This commit is contained in:
Chong Yidong 2009-03-15 17:56:30 +00:00
parent 9286b16a25
commit 224fc3d108

View file

@ -471,6 +471,8 @@ Lisp_Object Qmake_frame_visible;
Lisp_Object Qselect_window;
Lisp_Object Qhelp_echo;
extern Lisp_Object Qremap;
#if defined (HAVE_MOUSE) || defined (HAVE_GPM)
Lisp_Object Qmouse_fixup_help_message;
#endif
@ -8067,6 +8069,11 @@ parse_menu_item (item, notreal, inmenubar)
&& ! NILP (Fget (def, Qmenu_alias)))
def = XSYMBOL (def)->function;
tem = Fwhere_is_internal (def, Qnil, Qt, Qnil, Qt);
/* Don't display remap bindings.*/
if (VECTORP (tem) && ASIZE (tem) > 0 && EQ (AREF (tem, 0), Qremap))
tem = Qnil;
XSETCAR (cachelist, tem);
if (NILP (tem))
{