Mercurial > emacs
changeset 14129:d0b95da4f1f2
(describe_map): New arg nomenu.
(describe_map_tree): Pass that arg.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 09 Jan 1996 23:39:59 +0000 |
| parents | 6b1ecb157b48 |
| children | 99ab26698ab0 |
| files | src/keymap.c |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keymap.c Tue Jan 09 23:39:43 1996 +0000 +++ b/src/keymap.c Tue Jan 09 23:39:59 1996 +0000 @@ -2069,7 +2069,7 @@ 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 @@ /* 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 @@ 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. */