Mercurial > emacs

changeset 26205:65a0abaeed68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qad_activate_internal): Renamed from Qad_activate. (Ffset): Call Qad_activate_internal. (syms_of_data): Initialize Qad_activate_internal.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 26 Oct 1999 23:25:22 +0000
parents 00bcb3857405
children 3d9818475597
files src/data.c
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Tue Oct 26 22:22:57 1999 +0000
+++ b/src/data.c	Tue Oct 26 23:25:22 1999 +0000
@@ -87,7 +87,7 @@
 Lisp_Object Qchar_table_p, Qvector_or_char_table_p;
 
 Lisp_Object Qcdr;
-Lisp_Object Qad_advice_info, Qad_activate;
+Lisp_Object Qad_advice_info, Qad_activate_internal;
 
 Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error;
 Lisp_Object Qoverflow_error, Qunderflow_error;
@@ -682,7 +682,7 @@
   /* Handle automatic advice activation */
   if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info)))
     {
-      call2 (Qad_activate, symbol, Qnil);
+      call2 (Qad_activate_internal, symbol, Qnil);
       definition = XSYMBOL (symbol)->function;
     }
   return definition;
@@ -2623,7 +2623,7 @@
 
   /* Handle automatic advice activation */
   Qad_advice_info = intern ("ad-advice-info");
-  Qad_activate = intern ("ad-activate");
+  Qad_activate_internal = intern ("ad-activate-internal");
 
   error_tail = Fcons (Qerror, Qnil);
 
@@ -2810,7 +2810,7 @@
   staticpro (&Qfboundp);
   staticpro (&Qcdr);
   staticpro (&Qad_advice_info);
-  staticpro (&Qad_activate);
+  staticpro (&Qad_activate_internal);
 
   /* Types that type-of returns.  */
   Qinteger = intern ("integer");