mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

* lisp/help.el (describe-bindings): Use the outline-default-rules feature.

Browse Source 
Set buffer-local outline-default-state to 1, and outline-default-rules
to match "Key translations", instead of searching and hiding this section
explicitly.
This commit is contained in:
Juri Linkov 2022-11-23 20:33:18 +02:00
parent 5f9b587e80
commit 7a4f524314
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help.el
View File

@ -747,14 +747,15 @@ or a buffer name."
(setq-local outline-level (lambda () 1))
(setq-local outline-minor-mode-cycle t
outline-minor-mode-highlight t
outline-minor-mode-use-buttons 'insert)
outline-minor-mode-use-buttons 'insert
;; Hide the longest body.
outline-default-state 1
outline-default-rules
'((match-regexp . "Key translations")))
(outline-minor-mode 1)
(save-excursion
(goto-char (point-min))
(let ((inhibit-read-only t))
;; Hide the longest body.
(when (re-search-forward "Key translations" nil t)
(outline-hide-subtree))
;; Hide ^Ls.
(while (search-forward "\n\f\n" nil t)
(put-text-property (1+ (match-beginning 0)) (1- (match-end 0))