From 3a9ada2b46264e271923b7dbcbc219f2e360bc22 Mon Sep 17 00:00:00 2001 From: xeals Date: Mon, 4 May 2020 22:56:36 +1000 Subject: Check callables aren't native-compiled before calling them primitive --- helpful.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/helpful.el b/helpful.el index 20713d2..85adc5c 100644 --- 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) -- cgit v1.0