Mercurial > emacs
diff lisp/emacs-lisp/advice.el @ 90428:a8190f7e546e
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 285-296)
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: admin/FOR-RELEASE: Update refcard section.
* gnus--rel--5.10 (patch 102-104)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 07 Jun 2006 18:05:10 +0000 |
| parents | c5406394f567 b920ab84fba8 |
| children | 8dd8c8286063 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el Wed Jun 07 11:41:58 2006 +0000 +++ b/lisp/emacs-lisp/advice.el Wed Jun 07 18:05:10 2006 +0000 @@ -2350,6 +2350,7 @@ (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 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 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