Commit 2c3b35b0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe_map): Ignore bindings for all except symbols and integers.

parent 5416d1ee
...@@ -2073,9 +2073,12 @@ describe_map (map, keys, elt_describer, partial, shadow, seen) ...@@ -2073,9 +2073,12 @@ describe_map (map, keys, elt_describer, partial, shadow, seen)
else if (CONSP (XCONS (tail)->car)) else if (CONSP (XCONS (tail)->car))
{ {
event = XCONS (XCONS (tail)->car)->car; event = XCONS (XCONS (tail)->car)->car;
/* Don't show individual items in the Buffers menu. */
if (STRINGP (event)) /* Ignore bindings whose "keys" are not really valid events.
(We get these in the frames and buffers menu.) */
if (! (SYMBOLP (event) || INTEGERP (event)))
continue; continue;
definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0); definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
/* Don't show undefined commands or suppressed commands. */ /* 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