* lisp/help-fns.el (help-fns--signature): Add function type to C-h f.scratch/comp-all-types

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1966193d1a7..962a5038453 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -710,7 +710,10 @@ the C sources, too."
               (high-doc (cdr high)))
           (unless (and (symbolp function)
                        (get function 'reader-construct))
-            (insert high-usage "\n"))
+            (insert "Signature: " high-usage "\n\n")
+            (when (and (featurep 'native-compile)
+                       (subr-native-elisp-p (symbol-function function)))
+              (insert (format "Type: %s\n" (subr-type (symbol-function function))))))
           (fill-region fill-begin (point))
           high-doc)))))