Revert "Make `view-lossage' output of chars read from `read-char' more logical"

This reverts commit 1abf76877847226daa5ab7e07000ac1d4aba3478.

This change apparently led to problems with kmacro.

1 files changed, 12 insertions, 22 deletions

diff --git a/lisp/help.el b/lisp/help.el
index ba76d267571..039d0c44e4f 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -465,28 +465,18 @@ To record all your input, use `open-dribble-file'."
   (help-setup-xref (list #'view-lossage)
                    (called-interactively-p 'interactive))
   (with-help-window (help-buffer)
-    (with-current-buffer standard-output
-      (let ((prev-command nil))
-        (mapc
-         (lambda (key)
-           (cond
-            ((and (consp key) (null (car key)))
-             (princ (format ";; %s\n"
-                            (setq prev-command
-                                  (if (symbolp (cdr key))
-                                      (cdr key)
-                                    "anonymous-command")))))
-            ((eq key 'end-of-command)
-             (unless (bolp)
-               (princ (format ";; <during %s>\n" (or prev-command
-                                                     "unknown command")))))
-            ((or (integerp key) (symbolp key) (listp key))
-             (princ (single-key-description key))
-             (princ " "))
-            (t
-             (prin1 key)
-             (princ " "))))
-         (recent-keys 'include-cmds))))
+    (princ " ")
+    (princ (mapconcat (lambda (key)
+                        (cond
+                         ((and (consp key) (null (car key)))
+                          (format ";; %s\n" (if (symbolp (cdr key)) (cdr key)
+                                              "anonymous-command")))
+                         ((or (integerp key) (symbolp key) (listp key))
+                          (single-key-description key))
+                         (t
+                          (prin1-to-string key nil))))
+                      (recent-keys 'include-cmds)
+                      " "))
     (with-current-buffer standard-output
       (goto-char (point-min))
       (let ((comment-start ";; ")