From 32f532b7e27b1b825efcdfb62b85b38b292c50a9 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 30 Jul 1999 15:46:56 +0000 Subject: [PATCH] (Fdefalias): Call Ffset instead of duplicating code. --- src/data.c | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/src/data.c b/src/data.c index 117c8f2ee59..a7e16c93abb 100644 --- a/src/data.c +++ b/src/data.c @@ -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; } -- 2.39.5