From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 16 Sep 2022 11:38:01 +0000 (+0200)
Subject: Fix *Help* output for native-comp functions from IELM
X-Git-Tag: emacs-29.0.90~1856^2~453
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3fa41ac9217cc0a4dd83676c349786290e6fa09;p=emacs.git

Fix *Help* output for native-comp functions from IELM

* lisp/help-fns.el (find-lisp-object-file-name): Don't claim that
native-comp functions that are defined outside of files (for
instance, created by calling `native-compile' in IELM) are in C
source (bug#57819).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index a3d4e002b6f..2bb3e63487c 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -457,7 +457,9 @@ the C sources, too."
 		     load-path '(".el" ".elc") 'readable))))))))
 
     (cond
-     ((and (not file-name) (subrp type))
+     ((and (not file-name)
+           (subrp type)
+           (not (subr-native-elisp-p type)))
       ;; A built-in function.  The form is from `describe-function-1'.
       (if (or (get-buffer " *DOC*")
               (and also-c-source