From 3ac3ba22be5fa08434ef7e2e37ad2376798f61ef Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 24 Apr 2020 19:24:07 +0100 Subject: [PATCH] * lisp/subr.el (called-interactively-p): Fix for native code bug#40694. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 1dd768c3a61..5cf80f8e4b8 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -5131,7 +5131,7 @@ command is called from a keyboard macro?" ;; Now `frame' should be "the function from which we were called". (pcase (cons frame nextframe) ;; No subr calls `interactive-p', so we can rule that out. - (`((,_ ,(pred (lambda (f) (subrp (indirect-function f)))) . ,_) . ,_) nil) + (`((,_ ,(pred (lambda (f) (subr-primitive-p (indirect-function f)))) . ,_) . ,_) nil) ;; In case # without going through the ;; `funcall-interactively' symbol (bug#3984). (`(,_ . (t ,(pred (lambda (f) -- 2.39.5