Commit dad1aeb3 authored by Juri Linkov's avatar Juri Linkov

* 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)
parent 8ba61ffd
......@@ -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
---
......
......@@ -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)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment