From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 30 Oct 1999 20:26:22 +0000 (+0000)
Subject: (ad-activate-on): Make it an alias for ad-activate.
X-Git-Tag: emacs-pretest-21.0.90~6254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=17d28a2aa8dc3f5ed7a53d32c88701c500d597a7;p=emacs.git

(ad-activate-on): Make it an alias for ad-activate.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6003252f187..44576321e67 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-30  Gerd Moellmann  <gerd@gnu.org>
+
+	* emacs-lisp/advice.el (ad-activate-on): Make it an alias for
+	ad-activate.
+
 1999-10-30  Rajesh Vaidheeswarran  <rv@dsmit.com>
 
 	* whitespace.el (whitespace-version): Update to 2.6
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 4a4a7f9e18c..cf6dbe3c7f3 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -3619,6 +3619,8 @@ definition will always be cached for later usage."
 		      ;; Here we are if we have all disabled advices:
 		      (t (ad-deactivate function)))))))))
 
+(defalias 'ad-activate-on 'ad-activate)
+
 (defun ad-deactivate (function)
   "Deactivates the advice of an actively advised FUNCTION.
 If FUNCTION has a proper original definition, then the current