From: Gerd Moellmann Date: Wed, 14 Jun 2000 13:35:45 +0000 (+0000) Subject: (Fsingle_key_description): Enclose function key and X-Git-Tag: emacs-pretest-21.0.90~3320 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7edb9605f1a59a74dc3c2ebb0431eed06b7ff2c;p=emacs.git (Fsingle_key_description): Enclose function key and event symbol names in angle brackets. --- diff --git a/src/keymap.c b/src/keymap.c index c7e0f394b57..89271cf3971 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -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