feature/native-comp 24f68d6 1/2: src/comp.c (Fcomp__register_subr): Handle advice activation (bug#42038).

[Andrea Corallo]

branch: feature/native-comp
commit 24f68d6bfc83b5514d928853ffd86b97c53e1623
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    src/comp.c (Fcomp__register_subr): Handle advice activation (bug#42038).
---
 src/comp.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/comp.c b/src/comp.c
index 29aa635..6909aef 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -4769,9 +4769,17 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, 
Scomp__register_subr,
     make_subr (SYMBOL_NAME (name), minarg, maxarg, c_name, doc_idx, intspec,
               comp_u);
 
-  set_symbol_function (name, tem);
   LOADHIST_ATTACH (Fcons (Qdefun, name));
 
+  { /* Handle automatic advice activation (bug#42038).
+       See `defalias'.  */
+    Lisp_Object hook = Fget (name, Qdefalias_fset_function);
+    if (!NILP (hook))
+      call2 (hook, name, tem);
+    else
+      Ffset (name, tem);
+  }
+
   return tem;
 }