master e3fa41ac92: Fix *Help* output for native-comp functions from IELM

[Lars Ingebrigtsen]

branch: master
commit e3fa41ac9217cc0a4dd83676c349786290e6fa09
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/help-fns.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index a3d4e002b6..2bb3e63487 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