From: Andrea Corallo <akrl@sdf.org>
Date: Sun, 28 Jun 2020 14:38:48 +0000 (+0100)
Subject: * src/comp.c (Fcomp__register_subr): Remove code duplication using Fdefalias.
X-Git-Tag: emacs-28.0.90~2727^2~546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c7f615ae59b636efe5012f761a25acfd956480d;p=emacs.git

* src/comp.c (Fcomp__register_subr): Remove code duplication using Fdefalias.
---

diff --git a/src/comp.c b/src/comp.c
index bb416ecb19a..3abcabc8933 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -4780,17 +4780,7 @@ DEFUN ("comp--register-subr", Fcomp__register_subr, Scomp__register_subr,
   Lisp_Object tem =
     make_subr (SYMBOL_NAME (name), minarg, maxarg, c_name, doc_idx, intspec,
 	       comp_u);
-
-  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);
-  }
+  Fdefalias (name, tem, Qnil);
 
   return tem;
 }