]> git.eshelyaron.com Git - emacs.git/commitdiff
(parse_menu_item): Don't display remappings as menu equivalent bindings (Bug#788).
authorChong Yidong <cyd@stupidchicken.com>
Sun, 15 Mar 2009 17:56:30 +0000 (17:56 +0000)
committerChong Yidong <cyd@stupidchicken.com>
Sun, 15 Mar 2009 17:56:30 +0000 (17:56 +0000)
src/keyboard.c

index 5d3ae421d0fdd9d0b87fd93b487884a943cb602d..0052a489e88b4cf1df091f8949e11cca002bbd20 100644 (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))
            {