summaryrefslogtreecommitdiff
path: root/lisp/help-fns.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-09-16 13:38:01 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-09-16 13:38:09 +0200
commite3fa41ac9217cc0a4dd83676c349786290e6fa09 (patch)
treeccf04360c68e19b2926061acd43c7927085fdf6d /lisp/help-fns.el
parent17ef2806729f55a678099173a6126e04bbe7375c (diff)
downloademacs-e3fa41ac9217cc0a4dd83676c349786290e6fa09.tar.gz
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).
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r--lisp/help-fns.el4
1 files changed, 3 insertions, 1 deletions
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