diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-10-12 23:52:30 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-10-12 23:52:30 +0000 |
commit | 40d3a902107a7f5d0e18c6ba6508e8157e8b3db0 (patch) | |
tree | b81db145a428943f10106ceb38947255f433f453 /src/data.c | |
parent | c192dd4491281e7404da11d5cddf067374fc544e (diff) | |
download | emacs-40d3a902107a7f5d0e18c6ba6508e8157e8b3db0.tar.gz |
(Fdefine_function): Function definition deleted.
(syms_of_data): Don't call defsubr for it.
Diffstat (limited to 'src/data.c')
-rw-r--r-- | src/data.c | 24 |
1 files changed, 0 insertions, 24 deletions
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); |