mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 01:20:37 -08:00
Code Issues Projects Releases Wiki Activity

(Fsingle_key_description): Undo previous change.

Browse source 
(describe_map): Skip string entries.
This commit is contained in:
Karl Heuer 1994-04-29 06:05:19 +00:00
parent 4f9b95e52c
commit c96dcc01cd
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/keymap.c
View file

@ -1438,11 +1438,8 @@ Control characters turn into C-whatever, etc.")
case Lisp_Symbol: /* Function key or event-symbol */
return Fsymbol_name (key);
case Lisp_String:
return key;
default:
error ("KEY must be an integer, cons, string, or symbol.");
error ("KEY must be an integer, cons, or symbol.");
}
}
@ -2076,6 +2073,9 @@ describe_map (map, keys, elt_describer, partial, shadow, seen)
else if (CONSP (XCONS (tail)->car))
{
event = XCONS (XCONS (tail)->car)->car;
/* Don't show individual items in the Buffers menu. */
if (STRINGP (event))
continue;
definition = get_keyelt (XCONS (XCONS (tail)->car)->cdr, 0);
/* Don't show undefined commands or suppressed commands. */