[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 652e45b70d8: * Introduce `help-display-function-type' customizabl
From: |
Andrea Corallo |
Subject: |
master 652e45b70d8: * Introduce `help-display-function-type' customizable var (bug#65288). |
Date: |
Sun, 20 Aug 2023 16:37:43 -0400 (EDT) |
branch: master
commit 652e45b70d82e6f615febe00553dbded80557845
Author: Andrea Corallo <acorallo@gnu.org>
Commit: Andrea Corallo <acorallo@gnu.org>
* 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 652e45b70d8: * Introduce `help-display-function-type' customizable var (bug#65288).,
Andrea Corallo <=