diff options
| author | Chong Yidong <[email protected]> | 2009-03-15 17:56:30 +0000 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2009-03-15 17:56:30 +0000 |
| commit | 224fc3d1088868941f5185099701d55086260267 (patch) | |
| tree | bacabec4b1db6d1ca1b23e0da44ee79f123bea2d /src/keyboard.c | |
| parent | 9286b16a25d44de0e8b51c26e190502920cbd29d (diff) | |
(parse_menu_item): Don't display remappings as menu equivalent bindings (Bug#788).
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 5d3ae421d0..0052a489e8 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)) { |