[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 89a2e79 3/3: * Make use of use of `subr-primitive-p'
From: |
Andrea Corallo |
Subject: |
feature/native-comp 89a2e79 3/3: * Make use of use of `subr-primitive-p' in `find-function-library' |
Date: |
Mon, 21 Sep 2020 16:05:56 -0400 (EDT) |
branch: feature/native-comp
commit 89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Make use of use of `subr-primitive-p' in `find-function-library'
* lisp/emacs-lisp/find-func.el (find-function-library): Use
`subr-primitive-p'.
---
lisp/emacs-lisp/find-func.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index f5f8c82..a4577a5 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -432,7 +432,7 @@ message about the whole chain of aliases."
(cons function
(cond
((autoloadp def) (nth 1 def))
- ((and (subrp def) (not (subr-native-elisp-p def)))
+ ((subr-primitive-p def)
(if lisp-only
(error "%s is a built-in function" function))
(help-C-file-name def 'subr))