# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 845164350 0
# Node ID e46fcec4629d3615634aa663f8c9fcc292ee01d6
# Parent  63dc01de1823aaa9168ffe8e4e2f89505da2e23a
(Fdefine_function): Function definition deleted.
(syms_of_data): Don't call defsubr for it.

diff -r 63dc01de1823 -r e46fcec4629d src/data.c
--- a/src/data.c	Sat Oct 12 17:24:45 1996 +0000
+++ b/src/data.c	Sat Oct 12 23:52:30 1996 +0000
@@ -645,8 +645,6 @@
   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 @@
   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 @@
   defsubr (&Sfboundp);
   defsubr (&Sfset);
   defsubr (&Sdefalias);
-  defsubr (&Sdefine_function);
   defsubr (&Ssetplist);
   defsubr (&Ssymbol_value);
   defsubr (&Sset);