# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 985874975 0
# Node ID 543952c0704a15f06575490c98d1815614b8603d
# Parent  4cb750b910d1eb357af9638c4f008c447ddf1ac6
(ad-make-advised-definition): Call
interactive-form to obtain the interactive spec of subrs.

diff -r 4cb750b910d1 -r 543952c0704a lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Thu Mar 29 14:08:58 2001 +0000
+++ b/lisp/emacs-lisp/advice.el	Thu Mar 29 14:09:35 2001 +0000
@@ -1,6 +1,6 @@
 ;;; advice.el --- an overloading mechanism for Emacs Lisp functions
 
-;; Copyright (C) 1993,1994,2000  Free Software Foundation, Inc.
+;; Copyright (C) 1993,1994,2000, 2001  Free Software Foundation, Inc.
 
 ;; Author: Hans Chalupsky <hans@cs.buffalo.edu>
 ;; Maintainer: FSF
@@ -3072,12 +3072,7 @@
 		    ;; Otherwise we must have a subr: make it interactive if
 		    ;; we have to and initialize required arguments in case
 		    ;; it is called interactively:
-		    (orig-interactive-p
-		     (let ((reqargs (car (ad-parse-arglist advised-arglist))))
-		       (if reqargs
-			   (` (interactive
-			       '(, (make-list (length reqargs) nil))))
-			   '(interactive))))))
+		    (orig-interactive-p (interactive-form origdef))))
 	     (orig-form
 	      (cond ((or orig-special-form-p orig-macro-p)
 		     ;; Special forms and macros will be advised into macros.