(ad-enable-advice, ad-activate, ad-disable-advice): Add autoloads.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 11a86401271db40d51b8f2926a063d8bd72cbd88..bf94fcb539c9a72dd4c551b6e04a4e0271f1cf1f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-05-24  Richard Stallman  <rms@gnu.org>
 
+       * 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  <mathias.dahl@gmail.com>

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 486a3b049ae2e5e0d3fb7314f72ad2e3d04ebc34..d03245bf45216a7fc7b1a41551c17b26642ecee4 100644 (file)
--- 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