From 224fc3d1088868941f5185099701d55086260267 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 15 Mar 2009 17:56:30 +0000 Subject: [PATCH] (parse_menu_item): Don't display remappings as menu equivalent bindings (Bug#788). --- src/keyboard.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index 5d3ae421d0f..0052a489e88 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -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)) { -- 2.11.4.GIT