* lisp/help.el (view-lossage): Use the same format as in edit-last-kbd-macro.

Call comment-indent with let-bound comment-start and comment-column.
(Bug#30560)

diff --git a/etc/NEWS b/etc/NEWS
index 6a89182493ad6462fcae1c061e78df36ff51af68..70bafcd01b43d5079a46f0f7f30192cad1000d3f 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -160,6 +160,14 @@ bound to 'C-c C-f'.
 'dired-do-copy' and 'dired-rename-file' should create non-existent
 directories in the destination.
 
+** Help
+
+*** 'C-h l' (view-lossage) now displays last keystrokes and commands
+in the same format as the edit buffer of edit-last-kbd-macro.
+This makes possible to copy the lines from the buffer generated
+by 'view-lossage', yank them to the buffer "*Edit Macro*" created by
+'edit-last-kbd-macro', and save the macro by 'C-c C-c'.
+
 ** Ibuffer
 
 ---

diff --git a/lisp/help.el b/lisp/help.el
index 4899bc44e0380a217f61b91080250d32618ffe04..9575f5b090c6f78425e1ccc79ec3205938f225fc 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -465,8 +465,8 @@ To record all your input, use `open-dribble-file'."
     (princ (mapconcat (lambda (key)
                        (cond
                         ((and (consp key) (null (car key)))
-                         (format "[%s]\n" (if (symbolp (cdr key)) (cdr key)
-                                          "anonymous-command")))
+                         (format ";; %s\n" (if (symbolp (cdr key)) (cdr key)
+                                             "anonymous-command")))
                         ((or (integerp key) (symbolp key) (listp key))
                          (single-key-description key))
                         (t
@@ -475,11 +475,11 @@ To record all your input, use `open-dribble-file'."
                      " "))
     (with-current-buffer standard-output
       (goto-char (point-min))
-      (while (not (eobp))
-       (move-to-column 50)
-       (unless (eolp)
-         (fill-region (line-beginning-position) (line-end-position)))
-       (forward-line 1))
+      (let ((comment-start ";; ")
+            (comment-column 24))
+        (while (not (eobp))
+          (comment-indent)
+         (forward-line 1)))
       ;; jidanni wants to see the last keystrokes immediately.
       (set-marker help-window-point-marker (point)))))