From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 19 Sep 2020 20:42:16 +0000 (+0200)
Subject: * Make use of use of `subr-primitive-p' in `find-function-library'
X-Git-Tag: emacs-28.0.90~2727^2~432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310;p=emacs.git

* 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'.
---

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index f5f8c822089..a4577a53164 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))