From 652e45b70d82e6f615febe00553dbded80557845 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 20 Aug 2023 22:34:43 +0200 Subject: [PATCH] * 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. --- lisp/help-fns.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 2.39.5