diff options
| author | Juri Linkov <juri@linkov.net> | 2022-11-18 09:19:23 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-11-18 09:19:23 +0200 |
| commit | 9711c8c2b4f051ff33b0493f6cc6551c8621dfc9 (patch) | |
| tree | c34b2b80870a5867eee7a073cb4bcb1c0b1d34a1 /lisp/repeat.el | |
| parent | 32e29afe64897c2ba821e1c2edc2b7d2eb74e70f (diff) | |
| download | emacs-9711c8c2b4f051ff33b0493f6cc6551c8621dfc9.tar.gz emacs-9711c8c2b4f051ff33b0493f6cc6551c8621dfc9.tar.bz2 emacs-9711c8c2b4f051ff33b0493f6cc6551c8621dfc9.zip | |
* lisp/repeat.el (describe-repeat-maps): More outlines and page separators.
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 47 |
1 files changed, 25 insertions, 22 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 6b2977205fe..33e8d98ce33 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -582,13 +582,15 @@ Used in `repeat-mode'." (push s (alist-get (get s 'repeat-map) keymaps))))) (with-help-window (help-buffer) (with-current-buffer standard-output - (insert "A list of keymaps used by commands with the symbol property `repeat-map'.\n\n") + (insert "A list of keymaps used by commands with the symbol property `repeat-map'.\n") (dolist (keymap (sort keymaps (lambda (a b) (when (and (symbolp (car a)) (symbolp (car b))) - (string-lessp (car a) (car b)))))) - (insert (format-message "* `%s'\n" (car keymap))) + (string< (car a) (car b)))))) + (insert (format-message "\f\n* `%s'\n" (car keymap))) + (when (symbolp (car keymap)) + (insert (substitute-command-keys (format-message "\\{%s}" (car keymap))))) (let* ((map (if (symbolp (car keymap)) (symbol-value (car keymap)) @@ -603,33 +605,34 @@ Used in `repeat-mode'." (setq commands-exit (seq-difference map-commands repeat-commands)) (when (or commands-enter commands-exit) - (insert "\n") (when commands-enter + (insert "\n** Entered with:\n\n") (fill-region-as-paragraph (point) (progn - (insert (concat "Entered with: " - (mapconcat (lambda (cmd) - (format-message "`%s'" cmd)) - (sort commands-enter #'string<) - ", ") - "\n")) - (point)))) + (insert (mapconcat (lambda (cmd) + (format-message "`%s'" cmd)) + (sort commands-enter #'string<) + ", ")) + (point))) + (insert "\n")) (when commands-exit + (insert "\n** Exited with:\n\n") (fill-region-as-paragraph (point) (progn - (insert (concat "Exited with: " - (mapconcat (lambda (cmd) - (format-message "`%s'" cmd)) - (sort commands-exit #'string<) - ", ") - "\n")) - (point)))))) - - (when (symbolp (car keymap)) - (insert (substitute-command-keys (format-message "\\{%s}" (car keymap))))) - (insert "\n"))))))) + (insert (mapconcat (lambda (cmd) + (format-message "`%s'" cmd)) + (sort commands-exit #'string<) + ", ")) + (point))) + (insert "\n"))))) + + ;; Hide ^Ls. + (goto-char (point-min)) + (while (search-forward "\n\f\n" nil t) + (put-text-property (1+ (match-beginning 0)) (1- (match-end 0)) + 'invisible t))))))) (provide 'repeat) |