diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-09-19 22:42:16 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-09-21 21:46:18 +0200 |
| commit | 89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310 (patch) | |
| tree | 80d863478fffe2ad3b2bc17b4356b2041ff7c1f5 /lisp/emacs-lisp | |
| parent | 69c32e01875f33ba1cc4ad37d0940375cd0c6e27 (diff) | |
| download | emacs-89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310.tar.gz emacs-89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310.tar.bz2 emacs-89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310.zip | |
* 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'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |