From f29ea4418f9352df6ecb7118228e9825b92b5533 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 31 Oct 2021 23:25:12 +0100 Subject: [PATCH] Clarify describe-bindings code slightly * lisp/help.el (describe-bindings): Clarify code slightly. --- lisp/help.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index af68c5717b0..afb91a580aa 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -567,6 +567,8 @@ To record all your input, use `open-dribble-file'." :group 'help :version "29.1") +(declare-function outline-hide-subtree "outline") + (defun describe-bindings (&optional prefix buffer) "Display a buffer showing a list of all defined keys, and their definitions. The keys are displayed in order of precedence. @@ -598,9 +600,8 @@ or a buffer name." (goto-char (point-min)) (let ((inhibit-read-only t)) ;; Hide the longest body - (when (and (re-search-forward "Key translations" nil t) - (fboundp 'outline-cycle)) - (outline-cycle)) + (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