summaryrefslogtreecommitdiff
path: root/lisp/help.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/help.el')
-rw-r--r--lisp/help.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el
index c6585f0e41b..308574cca5c 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -287,7 +287,14 @@ of the key sequence that ran this command."
"Display last 100 input keystrokes."
(interactive)
(with-output-to-temp-buffer "*Help*"
- (princ (key-description (recent-keys)))
+ (princ (mapconcat (function (lambda (key)
+ (if (or (integerp key)
+ (symbolp key)
+ (listp key))
+ (single-key-description key)
+ (prin1-to-string key nil))))
+ (recent-keys)
+ " "))
(save-excursion
(set-buffer standard-output)
(goto-char (point-min))