* 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 135ee042dbf9bd75949c15162eedd86ae2e946b6..11854680dc29fd34f4400c575ed9a76f51c4c3fa 100644 (file)
--- 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