(ad-make-advised-definition): Use called-interactively-p.

2004-11-02 09:17:50 +00:00
parent 085db7de2d
commit ae03e7cf52
1 changed files with 1 additions and 1 deletions
--- 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