From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 10 Apr 2001 15:17:09 +0000 (+0000)
Subject: (ad-make-advised-definition): Construct
X-Git-Tag: emacs-pretest-21.0.103~245
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8541c92408c12c49dfa5c649dc6b9ddced0fc906;p=emacs.git

(ad-make-advised-definition): Construct
advice for subrs differently.
---

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 0333c51df64..268fea55b0c 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -3089,20 +3089,20 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return
 		     ;; expansion time and return the result. The moral of that
 		     ;; is that one should always deactivate advised special
 		     ;; forms before one byte-compiles a file.
-		     (` ((, (if orig-macro-p
-				'macroexpand
-			      'eval))
-			 (cons '(, origname)
-			       (, (ad-get-arguments advised-arglist 0))))))
+		     `(,(if orig-macro-p 'macroexpand 'eval)
+		       (cons ',origname
+			     ,(ad-get-arguments advised-arglist 0))))
 		    ((and orig-subr-p
 			  orig-interactive-p
+			  (not interactive-form)
 			  (not advised-interactive-form))
 		     ;; Check whether we were called interactively
 		     ;; in order to do proper prompting:
-		     (` (if (interactive-p)
-			    (call-interactively '(, origname))
-			  (, (ad-make-mapped-call
-			      orig-arglist advised-arglist origname)))))
+		     `(if (interactive-p)
+			  (call-interactively ',origname)
+			,(ad-make-mapped-call orig-arglist 
+					      advised-arglist
+					      origname)))
 		    ;; And now for normal functions and non-interactive subrs
 	            ;; (or subrs whose interactive behavior was advised):
 		    (t (ad-make-mapped-call