From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 14 Aug 2023 15:08:54 +0000 (+0300)
Subject: Fix slow "C-h f" in Emacs built without native compilation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=545f95d1a3213318389ecadc7cfff3f48b555b03;p=emacs.git

Fix slow "C-h f" in Emacs built without native compilation

* lisp/help-fns.el (help-fns--signature): Don't try calling
'comp-function-type-spec' if Emacs was built without native
compilation.  (Bug#65250)
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index fc8f431fd11..bedc5a9e49b 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -715,7 +715,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* ((res (and (native-comp-available-p)
+                                  (comp-function-type-spec function)))
                         (type-spec (car res))
                         (kind (cdr res)))
               (insert (format