diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-06-14 13:35:45 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-06-14 13:35:45 +0000 |
| commit | c7edb9605f1a59a74dc3c2ebb0431eed06b7ff2c (patch) | |
| tree | d79b588dca46f18cd465c8a8a11d48c7570e859f /src/keymap.c | |
| parent | 2a4487aceb4f5c7175ed98e168d9a49a99ae0a80 (diff) | |
| download | emacs-c7edb9605f1a59a74dc3c2ebb0431eed06b7ff2c.tar.gz emacs-c7edb9605f1a59a74dc3c2ebb0431eed06b7ff2c.tar.bz2 emacs-c7edb9605f1a59a74dc3c2ebb0431eed06b7ff2c.zip | |
(Fsingle_key_description): Enclose function key and
event symbol names in angle brackets.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 6 |
1 files changed, 5 insertions, 1 deletions
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 |