diff options
author | Karl Heuer <[email protected]> | 1996-07-12 00:22:51 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1996-07-12 00:22:51 +0000 |
commit | 210df3bf250c25836a55d8835bafd6d94ef1c553 (patch) | |
tree | 37834ce8441198f35a1803fb2cde7dd0ba65b5ea /src | |
parent | 13f1d088c16c9ba08b96933e5a609994c376c706 (diff) |
(menu_bar_item): Skip menu-bar equiv keys data
to get just the keymap.
Diffstat (limited to 'src')
-rw-r--r-- | src/keyboard.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index c4d4902067..e01e7e17f9 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, |