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

(Ffset): Change argument name and doc string.

parent 1e6bc770
......@@ -625,9 +625,9 @@ DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0, "Return SYMBOL's name
}
DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
"Set SYMBOL's function definition to NEWVAL, and return NEWVAL.")
(symbol, newdef)
register Lisp_Object symbol, newdef;
"Set SYMBOL's function definition to DEFINITION, and return DEFINITION.")
(symbol, definition)
register Lisp_Object symbol, definition;
{
CHECK_SYMBOL (symbol, 0);
if (NILP (symbol) || EQ (symbol, Qt))
......@@ -635,14 +635,14 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (symbol)->function, Qunbound))
Vautoload_queue = Fcons (Fcons (symbol, XSYMBOL (symbol)->function),
Vautoload_queue);
XSYMBOL (symbol)->function = newdef;
XSYMBOL (symbol)->function = definition;
/* Handle automatic advice activation */
if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info)))
{
call2 (Qad_activate, symbol, Qnil);
newdef = XSYMBOL (symbol)->function;
definition = XSYMBOL (symbol)->function;
}
return newdef;
return definition;
}
DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0,
......
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