(Fsingle_key_description): Enclose function key and

event symbol names in angle brackets.
This commit is contained in:
Gerd Moellmann 2000-06-14 13:35:45 +00:00
parent 2a4487aceb
commit c7edb9605f

View file

@ -1952,7 +1952,11 @@ Control characters turn into C-whatever, etc.")
}
}
else if (SYMBOLP (key)) /* Function key or event-symbol */
return Fsymbol_name (key);
{
char *buffer = (char *) alloca (STRING_BYTES (XSYMBOL (key)->name) + 5);
sprintf (buffer, "<%s>", XSYMBOL (key)->name->data);
return build_string (buffer);
}
else if (STRINGP (key)) /* Buffer names in the menubar. */
return Fcopy_sequence (key);
else