diff options
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 9 |
1 files 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)) |