diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:22:51 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-07-12 00:22:51 +0000 |
| commit | 51018a1cc626179d9a36c6d8db3b196b9ddac28a (patch) | |
| tree | 7d57d652b096917b6af8437dd46bbccc608ac5f6 /src | |
| parent | bbffcd4afb5e88234724fd2827ac05dc605aa4ba (diff) | |
| download | emacs-51018a1cc626179d9a36c6d8db3b196b9ddac28a.tar.gz | |
(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 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, |