From: Andrea Corallo <acorallo@gnu.org>
Date: Sun, 20 Aug 2023 20:34:43 +0000 (+0200)
Subject: * Introduce `help-display-function-type' customizable var (bug#65288).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=652e45b70d82e6f615febe00553dbded80557845;p=emacs.git

* Introduce `help-display-function-type' customizable var (bug#65288).

	* lisp/help-fns.el (help-display-function-type): New
	customizable var.
	(help-fns--signature): Make use of.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 135ee042dbf..11854680dc2 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -152,6 +152,12 @@ edited even if this option is enabled."
   :group 'help
   :version "28.1")
 
+(defcustom help-display-function-type t
+  "If non-nil, display the type of a function when available."
+  :type 'boolean
+  :group 'help
+  :version "30.1")
+
 (defun help--symbol-class (s)
   "Return symbol class characters for symbol S."
   (when (stringp s)
@@ -715,7 +721,8 @@ the C sources, too."
           (unless (and (symbolp function)
                        (get function 'reader-construct))
             (insert high-usage "\n")
-            (when-let* ((res (comp-function-type-spec function))
+            (when-let* ((gate help-display-function-type)
+                        (res (comp-function-type-spec function))
                         (type-spec (car res))
                         (kind (cdr res)))
               (insert (format