From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 2 Nov 2004 09:17:50 +0000 (+0000)
Subject: (ad-make-advised-definition): Use called-interactively-p.
X-Git-Tag: ttn-vms-21-2-B4~4245
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae03e7cf52e245b66b8e04bd9601aa652c43cdf9;p=emacs.git

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

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