# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 986915829 0
# Node ID 9ca19dfc32fb23524cd4314680ca0e7360da9a57
# Parent  3a9c22d4a66f8d8ef8d2fd565c94b237be148288
(ad-make-advised-definition): Construct
advice for subrs differently.

diff -r 3a9c22d4a66f -r 9ca19dfc32fb lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Tue Apr 10 14:55:03 2001 +0000
+++ b/lisp/emacs-lisp/advice.el	Tue Apr 10 15:17:09 2001 +0000
@@ -3089,20 +3089,20 @@
 		     ;; 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