diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-16 13:38:01 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-09-16 13:38:09 +0200 |
| commit | e3fa41ac9217cc0a4dd83676c349786290e6fa09 (patch) | |
| tree | ccf04360c68e19b2926061acd43c7927085fdf6d /lisp | |
| parent | 17ef2806729f55a678099173a6126e04bbe7375c (diff) | |
| download | emacs-e3fa41ac9217cc0a4dd83676c349786290e6fa09.tar.gz emacs-e3fa41ac9217cc0a4dd83676c349786290e6fa09.tar.bz2 emacs-e3fa41ac9217cc0a4dd83676c349786290e6fa09.zip | |
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')
| -rw-r--r-- | lisp/help-fns.el | 4 |
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 |