mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues Projects Releases Wiki Activity

(Fdefine_function): Function definition deleted.

Browse source 
(syms_of_data): Don't call defsubr for it.
This commit is contained in:
Richard M. Stallman 1996-10-12 23:52:30 +00:00
parent 30fc6c655c
commit 339b405d57
1 changed files with 0 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/data.c
View file

@ -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);