mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/help-fns.el (help-display-function-type): New
	customizable var.
	(help-fns--signature): Make use of.
This commit is contained in:
Andrea Corallo 2023-08-20 22:34:43 +02:00
parent a563ea8963
commit 652e45b70d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help-fns.el
View File

@ -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