1 files changed, 1 insertions, 1 deletions

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