Commit fc08c367 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdefine_function): New function.

parent 2a49b6e5
...@@ -525,6 +525,21 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0, ...@@ -525,6 +525,21 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
return newdef; 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.")
(sym, newdef)
register Lisp_Object sym, newdef;
{
CHECK_SYMBOL (sym, 0);
if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound))
Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function),
Vautoload_queue);
XSYMBOL (sym)->function = newdef;
LOADHIST_ATTACH (sym);
return newdef;
}
DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0, DEFUN ("setplist", Fsetplist, Ssetplist, 2, 2, 0,
"Set SYMBOL's property list to NEWVAL, and return NEWVAL.") "Set SYMBOL's property list to NEWVAL, and return NEWVAL.")
(sym, newplist) (sym, newplist)
...@@ -2138,6 +2153,7 @@ syms_of_data () ...@@ -2138,6 +2153,7 @@ syms_of_data ()
defsubr (&Sboundp); defsubr (&Sboundp);
defsubr (&Sfboundp); defsubr (&Sfboundp);
defsubr (&Sfset); defsubr (&Sfset);
defsubr (&Sdefine_function);
defsubr (&Ssetplist); defsubr (&Ssetplist);
defsubr (&Ssymbol_value); defsubr (&Ssymbol_value);
defsubr (&Sset); defsubr (&Sset);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment