From 210df3bf250c25836a55d8835bafd6d94ef1c553 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 12 Jul 1996 00:22:51 +0000 Subject: [PATCH] (menu_bar_item): Skip menu-bar equiv keys data to get just the keymap. --- src/keyboard.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/keyboard.c b/src/keyboard.c index c4d49020676..e01e7e17f93 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -5223,6 +5223,10 @@ menu_bar_item (key, item_string, def) Lisp_Object enabled; int i; + /* Skip menu-bar equiv keys data. */ + if (CONSP (def) && CONSP (XCONS (def)->car)) + def = XCONS (def)->cdr; + if (EQ (def, Qundefined)) { /* If a map has an explicit `undefined' as definition, -- 2.39.2