Mercurial > emacs
diff src/keyboard.c @ 15649:3ee2f3ce0a07
(menu_bar_item): Skip menu-bar equiv keys data
to get just the keymap.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 12 Jul 1996 00:22:51 +0000 |
| parents | 4a92710b931c |
| children | 0a8875981734 |
line wrap: on
line diff
--- a/src/keyboard.c Fri Jul 12 00:09:50 1996 +0000 +++ b/src/keyboard.c Fri Jul 12 00:22:51 1996 +0000 @@ -5223,6 +5223,10 @@ 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,