diff options
| author | Andrea Corallo | 2020-09-19 22:42:16 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-09-21 21:46:18 +0200 |
| commit | 89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310 (patch) | |
| tree | 80d863478fffe2ad3b2bc17b4356b2041ff7c1f5 | |
| parent | 69c32e01875f33ba1cc4ad37d0940375cd0c6e27 (diff) | |
| download | emacs-89a2e79b7d9fa9dc640951bbb3cb0d78dbfbc310.tar.gz 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'.
| -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." | |||
| 432 | (cons function | 432 | (cons function |
| 433 | (cond | 433 | (cond |
| 434 | ((autoloadp def) (nth 1 def)) | 434 | ((autoloadp def) (nth 1 def)) |
| 435 | ((and (subrp def) (not (subr-native-elisp-p def))) | 435 | ((subr-primitive-p def) |
| 436 | (if lisp-only | 436 | (if lisp-only |
| 437 | (error "%s is a built-in function" function)) | 437 | (error "%s is a built-in function" function)) |
| 438 | (help-C-file-name def 'subr)) | 438 | (help-C-file-name def 'subr)) |