# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1130170474 0
# Node ID df04170ba46b0e55e26ba02d2bcba83cc8ef3d40
# Parent  768dad162d9ebcb4ef2688bb0c35adf32109a69f
(ad-make-advised-definition): Fix arg-order.
(defadvice): Add `doc-string' declaration.

diff -r 768dad162d9e -r df04170ba46b lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Mon Oct 24 16:10:42 2005 +0000
+++ b/lisp/emacs-lisp/advice.el	Mon Oct 24 16:14:34 2005 +0000
@@ -3109,8 +3109,8 @@
 		     ;; in order to do proper prompting:
 		     `(if (called-interactively-p)
 			  (call-interactively ',origname)
-			,(ad-make-mapped-call orig-arglist
-					      advised-arglist
+			,(ad-make-mapped-call advised-arglist
+					      orig-arglist
 					      origname)))
 		    ;; And now for normal functions and non-interactive subrs
 	            ;; (or subrs whose interactive behavior was advised):
@@ -3812,6 +3812,7 @@
 during preloading.
 
 See Info node `(elisp)Advising Functions' for comprehensive documentation."
+  (declare (doc-string 3))
   (if (not (ad-name-p function))
       (error "defadvice: Invalid function name: %s" function))
   (let* ((class (car args))
@@ -3986,5 +3987,5 @@
 
 (provide 'advice)
 
-;;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0
+;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0
 ;;; advice.el ends here