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

[Andrea Corallo]

branch: scratch/comp-all-types
commit 6fe4176e22c1842d6a8e44b30e3d1a79d153b36e
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * lisp/help-fns.el (help-fns--signature): Add function type to C-h f.
---
 lisp/help-fns.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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