From 7a4f524314a263f0b935e4f2ce73a416b877d6f8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 23 Nov 2022 20:33:18 +0200 Subject: [PATCH] * lisp/help.el (describe-bindings): Use the outline-default-rules feature. Set buffer-local outline-default-state to 1, and outline-default-rules to match "Key translations", instead of searching and hiding this section explicitly. --- lisp/help.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index f956111a52f..8e1b325141e 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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)) -- 2.39.5