helpful

commit 3a9ada2b46264e271923b7dbcbc219f2e360bc22
parent c54e9ddbd6a77858048c1a4c4b549de98af8f88e
Author: xeals <dev@xeal.me>
Date:   Mon,  4 May 2020 22:56:36 +1000

Check callables aren't native-compiled before calling them primitive

Diffstat:
M
helpful.el
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/helpful.el b/helpful.el
@@ -1633,7 +1633,9 @@ POSITION-HEADS takes the form ((123 (defun foo)) (456 (defun bar)))."
    ((and callable-p (helpful--advised-p sym))
     (subrp (helpful--without-advice sym)))
    (callable-p
-    (subrp (indirect-function sym)))
+    (and (not (and (fboundp 'subr-native-elisp-p)
+                   (subr-native-elisp-p (indirect-function sym))))
+         (subrp (indirect-function sym))))
    (t
     (let ((filename (find-lisp-object-file-name sym 'defvar)))
       (or (eq filename 'C-source)