Mercurial > emacs

changeset 15649:3ee2f3ce0a07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 2feeabc94834
children bc9525478463
files src/keyboard.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
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,