# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1039297158 0
# Node ID ccd782f27e54789170cd627db6170d75ad8f2a2e
# Parent  a6906c113d1427199a44d0cb4ab78e071b0e08d4
(Fdefun, Fdefmacro): Record in load-history redefining an autoload.

diff -r a6906c113d14 -r ccd782f27e54 src/eval.c
--- a/src/eval.c	Sat Dec 07 21:38:39 2002 +0000
+++ b/src/eval.c	Sat Dec 07 21:39:18 2002 +0000
@@ -637,6 +637,9 @@
   defn = Fcons (Qlambda, Fcdr (args));
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);
+  if (CONSP (XSYMBOL (fn_name)->function)
+      && EQ (XCAR (XSYMBOL (fn_name)->function), Qautoload))
+    LOADHIST_ATTACH (Fcons (Qt, fn_name));
   Ffset (fn_name, defn);
   LOADHIST_ATTACH (fn_name);
   return fn_name;
@@ -702,6 +705,9 @@
   
   if (!NILP (Vpurify_flag))
     defn = Fpurecopy (defn);
+  if (CONSP (XSYMBOL (fn_name)->function)
+      && EQ (XCAR (XSYMBOL (fn_name)->function), Qautoload))
+    LOADHIST_ATTACH (Fcons (Qt, fn_name));
   Ffset (fn_name, defn);
   LOADHIST_ATTACH (fn_name);
   return fn_name;