Commit 279a482a authored by Karl Heuer's avatar Karl Heuer
Browse files

(describe_map): New arg nomenu.

(describe_map_tree): Pass that arg.
parent 5badd6a0
......@@ -2069,7 +2069,7 @@ key binding\n\
describe_map (Fcdr (elt), Fcar (elt),
transl ? describe_translation : describe_command,
partial, sub_shadows, &seen);
partial, sub_shadows, &seen, nomenu);
skip: ;
}
......@@ -2155,16 +2155,17 @@ shadow_lookup (shadow, key, flag)
/* Describe the contents of map MAP, assuming that this map itself is
reached by the sequence of prefix keys KEYS (a string or vector).
PARTIAL, SHADOW are as in `describe_map_tree' above. */
PARTIAL, SHADOW, NOMENU are as in `describe_map_tree' above. */
static void
describe_map (map, keys, elt_describer, partial, shadow, seen)
describe_map (map, keys, elt_describer, partial, shadow, seen, nomenu)
register Lisp_Object map;
Lisp_Object keys;
int (*elt_describer) ();
int partial;
Lisp_Object shadow;
Lisp_Object *seen;
int nomenu;
{
Lisp_Object elt_prefix;
Lisp_Object tail, definition, event;
......@@ -2210,6 +2211,9 @@ describe_map (map, keys, elt_describer, partial, shadow, seen)
if (! (SYMBOLP (event) || INTEGERP (event)))
continue;
if (nomenu && EQ (event, Qmenu_bar))
continue;
definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
/* Don't show undefined commands or suppressed commands. */
......
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