From: Andrea Corallo <akrl@sdf.org>
Date: Fri, 24 Apr 2020 18:24:07 +0000 (+0100)
Subject: * lisp/subr.el (called-interactively-p): Fix for native code bug#40694.
X-Git-Tag: emacs-28.0.90~2727^2~690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ac3ba22be5fa08434ef7e2e37ad2376798f61ef;p=emacs.git

* lisp/subr.el (called-interactively-p): Fix for native code bug#40694.
---

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 #<subr funcall-interactively> without going through the
         ;; `funcall-interactively' symbol (bug#3984).
         (`(,_ . (t ,(pred (lambda (f)