fix subr-native-elisp-p predicate name

2019-09-26 12:11:13 +02:00 · 2019-09-26 12:11:13 +02:00 · 7d3da0a37e
commit 7d3da0a37e
parent 5630ebaf74
2 changed files with 3 additions and 3 deletions
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@ -1387,7 +1387,7 @@ This can run just once."
             (callee-in-unit (gethash callee
                                      (comp-ctxt-funcs-h comp-ctxt))))
        (cond
-         ((and subrp (not (subr-native-elispp f)))
+         ((and subrp (not (subr-native-elisp-p f)))
          ;; Trampoline removal.
          (let* ((maxarg (cdr (subr-arity f)))
                 (call-type (if (if subrp