diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-10 04:08:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-10 04:08:26 +0000 |
| commit | 298a7c8c1c38d40652f4740eda7af6e72858c846 (patch) | |
| tree | eb650648f4031e1f7115be7299c7ccb70a1cd237 /lisp/help.el | |
| parent | 0691ced3c70e3dd8499ee51385c574db6867da41 (diff) | |
| download | emacs-298a7c8c1c38d40652f4740eda7af6e72858c846.tar.gz | |
(view-lossage): Handle buffers and frames in recent-keys.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 9 |
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)) |