From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 24 Apr 2023 16:22:44 +0000 (+0300)
Subject: ; Fix last change in help.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d18c4ef4feaccf7bad67e6c0c5b00cdadd81ba1a;p=emacs.git

; Fix last change in help.el

* lisp/help.el (describe-bindings-outline-rules): Fix :type.
Reported by Robert Pluim <rpluim@gmail.com>.
---

diff --git a/lisp/help.el b/lisp/help.el
index 886c6e0acc8..4c5382ff285 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -728,12 +728,17 @@ Return nil if KEYS is nil."
   :version "29.1")
 
 (defcustom describe-bindings-outline-rules '((match-regexp . "Key translations"))
-  "Visibility rules for outlines in the output buffer of `describe-bindings'.
+  "Visibility rules for outline sections of `describe-bindings'.
 This is used as the value of `outline-default-rules' in the
 output buffer of `describe-bindings' when
 `describe-bindings-outline' is non-nil, otherwise this option
 doesn't have any effect."
-  :type 'boolean
+  :type '(choice (const :tag "Hide unconditionally" nil)
+                 (set :tag "Show section unless"
+                      (cons :tag "Heading matches regexp"
+                            (const match-regexp)  string)
+                      (cons :tag "Custom function returns non-nil"
+                            (const custom-function) function)))
   :group 'help
   :version "30.1")