[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/advice.el
diff -c emacs/lisp/emacs-lisp/advice.el:1.43 
emacs/lisp/emacs-lisp/advice.el:1.44
*** emacs/lisp/emacs-lisp/advice.el:1.43        Sat Sep 24 13:43:59 2005
--- emacs/lisp/emacs-lisp/advice.el     Mon Oct 24 16:14:34 2005
***************
*** 3109,3116 ****
                     ;; in order to do proper prompting:
                     `(if (called-interactively-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):
--- 3109,3116 ----
                     ;; in order to do proper prompting:
                     `(if (called-interactively-p)
                          (call-interactively ',origname)
!                       ,(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,3817 ****
--- 3812,3818 ----
  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,3990 ****
  
  (provide 'advice)
  
! ;;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0
  ;;; advice.el ends here
--- 3987,3991 ----
  
  (provide 'advice)
  
! ;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0
  ;;; advice.el ends here