Commit 210df3bf authored by Karl Heuer's avatar Karl Heuer
Browse files

(menu_bar_item): Skip menu-bar equiv keys data

to get just the keymap.
parent 13f1d088
...@@ -5223,6 +5223,10 @@ menu_bar_item (key, item_string, def) ...@@ -5223,6 +5223,10 @@ menu_bar_item (key, item_string, def)
Lisp_Object enabled; Lisp_Object enabled;
int i; int i;
/* Skip menu-bar equiv keys data. */
if (CONSP (def) && CONSP (XCONS (def)->car))
def = XCONS (def)->cdr;
if (EQ (def, Qundefined)) if (EQ (def, Qundefined))
{ {
/* If a map has an explicit `undefined' as definition, /* If a map has an explicit `undefined' as definition,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment