From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 30 Jul 1999 15:46:56 +0000 (+0000)
Subject: (Fdefalias): Call Ffset instead of duplicating code.
X-Git-Tag: emacs-pretest-21.0.90~7309
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32f532b7e27b1b825efcdfb62b85b38b292c50a9;p=emacs.git

(Fdefalias): Call Ffset instead of duplicating code.
---

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;
 }