From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 31 Oct 2021 22:25:12 +0000 (+0100)
Subject: Clarify describe-bindings code slightly
X-Git-Tag: emacs-29.0.90~3671^2~319
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f29ea4418f9352df6ecb7118228e9825b92b5533;p=emacs.git

Clarify describe-bindings code slightly

* lisp/help.el (describe-bindings): Clarify code slightly.
---

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))