From ae03e7cf52e245b66b8e04bd9601aa652c43cdf9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 2 Nov 2004 09:17:50 +0000 Subject: [PATCH] (ad-make-advised-definition): Use called-interactively-p. --- lisp/emacs-lisp/advice.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 7686722c5be..cfaac96bbb1 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3106,7 +3106,7 @@ in any of these classes." (not advised-interactive-form)) ;; Check whether we were called interactively ;; in order to do proper prompting: - `(if (interactive-p) + `(if (called-interactively-p) (call-interactively ',origname) ,(ad-make-mapped-call orig-arglist advised-arglist -- 2.11.4.GIT