[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 3ac3ba2 3/4: * lisp/subr.el (called-interactively-p)
From: |
Andrea Corallo |
Subject: |
feature/native-comp 3ac3ba2 3/4: * lisp/subr.el (called-interactively-p): Fix for native code bug#40694. |
Date: |
Fri, 24 Apr 2020 11:52:34 -0400 (EDT) |
branch: feature/native-comp
commit 3ac3ba22be5fa08434ef7e2e37ad2376798f61ef
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>
* 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 1dd768c..5cf80f8 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)