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

(Fdefalias): Change argument name and doc string.

parent baa573a3
......@@ -646,24 +646,24 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
}
DEFUN ("defalias", Fdefalias, Sdefalias, 2, 2, 0,
"Set SYMBOL's function definition to NEWDEF, and return NEWDEF.\n\
"Set SYMBOL's function definition to DEFINITION, and return DEFINITION.\n\
Associates the function with the current load file, if any.")
(symbol, newdef)
register Lisp_Object symbol, newdef;
(symbol, definition)
register Lisp_Object symbol, definition;
{
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;
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;
}
LOADHIST_ATTACH (symbol);
return newdef;
return definition;
}
DEFUN ("setplist", Fsetplist, Ssetplist, 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