From: Eshel Yaron Date: Thu, 20 Feb 2025 13:01:10 +0000 (+0100) Subject: Fix 'called-interactively-p' X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cd7d86af6d97b2d60fe4ff8fc01d0e7bde24fe8;p=emacs.git Fix 'called-interactively-p' --- diff --git a/lisp/subr.el b/lisp/subr.el index 403177f048e..30da836e90c 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -6077,7 +6077,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 (compf subr-primitive-p indirect-function)) . ,_) . ,_) 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)