(Fsingle_key_description): Enclose function key and

event symbol names in angle brackets.

diff --git a/src/keymap.c b/src/keymap.c
index c7e0f394b57e7730bbdd2a1085538b33313a41a1..89271cf39714e8a2401128a30cf4e1f3e208796a 100644 (file)
--- 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