From: Richard M. Stallman Date: Thu, 25 May 2006 00:00:50 +0000 (+0000) Subject: (ad-enable-advice, ad-activate, ad-disable-advice): Add autoloads. X-Git-Tag: emacs-pretest-22.0.90~2351 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=379ba58e7676783024bfd1cba67e0c9996ae250a;p=emacs.git (ad-enable-advice, ad-activate, ad-disable-advice): Add autoloads. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11a86401271..bf94fcb539c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-05-24 Richard Stallman + * emacs-lisp/advice.el (ad-enable-advice, ad-activate) + (ad-disable-advice): Add autoloads. + * subr.el (read-passwd): Copy PROMPT before changing its properties. 2006-05-25 Mathias Dahl diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 486a3b049ae..d03245bf452 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -2350,6 +2350,7 @@ FUNCTION was not advised)." (ad-advice-set-enabled advice flag)))))) matched-advices))) +;;;###autoload (defun ad-enable-advice (function class name) "Enables the advice of FUNCTION with CLASS and NAME." (interactive (ad-read-advice-specification "Enable advice of")) @@ -2359,6 +2360,7 @@ FUNCTION was not advised)." function class name)) (error "ad-enable-advice: `%s' is not advised" function))) +;;;###autoload (defun ad-disable-advice (function class name) "Disable the advice of FUNCTION with CLASS and NAME." (interactive (ad-read-advice-specification "Disable advice of")) @@ -3585,6 +3587,7 @@ the value of `ad-redefinition-action' and de/activate again." ;; @@ The top-level advice interface: ;; ================================== +;;;###autoload (defun ad-activate (function &optional compile) "Activate all the advice information of an advised FUNCTION. If FUNCTION has a proper original definition then an advised