From 40d3a902107a7f5d0e18c6ba6508e8157e8b3db0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Oct 1996 23:52:30 +0000 Subject: (Fdefine_function): Function definition deleted. (syms_of_data): Don't call defsubr for it. --- src/data.c | 24 ------------------------ 1 file changed, 24 deletions(-) (limited to 'src/data.c') diff --git a/src/data.c b/src/data.c index 744e19db712..16519d17fd7 100644 --- a/src/data.c +++ b/src/data.c @@ -645,8 +645,6 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, return newdef; } -/* This name should be removed once it is eliminated from elsewhere. */ - DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0, "Set SYMBOL's function definition to NEWDEF, and return NEWDEF.\n\ Associates the function with the current load file, if any.") @@ -668,27 +666,6 @@ Associates the function with the current load file, if any.") return newdef; } -DEFUN ("define-function", Fdefine_function, Sdefine_function, 2, 2, 0, - "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.\n\ -Associates the function with the current load file, if any.") - (symbol, newdef) - register Lisp_Object symbol, newdef; -{ - CHECK_SYMBOL (symbol, 0); - if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (symbol)->function, Qunbound)) - Vautoload_queue = Fcons (Fcons (symbol, XSYMBOL (symbol)->function), - Vautoload_queue); - XSYMBOL (symbol)->function = newdef; - /* Handle automatic advice activation */ - if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info))) - { - call2 (Qad_activate, symbol, Qnil); - newdef = XSYMBOL (symbol)->function; - } - LOADHIST_ATTACH (symbol); - return newdef; -} - DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0, "Set SYMBOL's property list to NEWVAL, and return NEWVAL.") (symbol, newplist) @@ -2663,7 +2640,6 @@ syms_of_data () defsubr (&Sfboundp); defsubr (&Sfset); defsubr (&Sdefalias); - defsubr (&Sdefine_function); defsubr (&Ssetplist); defsubr (&Ssymbol_value); defsubr (&Sset); -- cgit v1.2.1