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 a3d4e002b6f1a9a6312acc7b255fd6ae46e5814d..2bb3e63487c237c935ac445db8ae038aa5e43f2b 100644 (file)
--- 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