[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 6c7f615a 3/4: * src/comp.c (Fcomp__register_subr): R
From: |
Andrea Corallo |
Subject: |
feature/native-comp 6c7f615a 3/4: * src/comp.c (Fcomp__register_subr): Remove code duplication using Fdefalias. |
Date: |
Sun, 28 Jun 2020 10:55:33 -0400 (EDT) |
branch: feature/native-comp
commit 6c7f615ae59b636efe5012f761a25acfd956480d
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* src/comp.c (Fcomp__register_subr): Remove code duplication using
Fdefalias.
---
src/comp.c | 12 +-----------
1 file changed, 1 insertion(+), 11 deletions(-)
diff --git a/src/comp.c b/src/comp.c
index bb416ec..3abcabc 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;
}