Commit 32f532b7 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fdefalias): Call Ffset instead of duplicating code.

parent 9fcc68f7
......@@ -693,17 +693,7 @@ Associates the function with the current load file, if any.")
(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 = definition;
/* Handle automatic advice activation */
if (CONSP (XSYMBOL (symbol)->plist) && !NILP (Fget (symbol, Qad_advice_info)))
{
call2 (Qad_activate, symbol, Qnil);
definition = XSYMBOL (symbol)->function;
}
definition = Ffset (symbol, definition);
LOADHIST_ATTACH (symbol);
return definition;
}
......
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