# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1039297119 0
# Node ID a6906c113d1427199a44d0cb4ab78e071b0e08d4
# Parent  6cea9f00471ed9a5b73c06f2d728eaf8b334e95e
(Fdefalias): Record in load-history redefining an autoload.

diff -r 6cea9f00471e -r a6906c113d14 src/data.c
--- a/src/data.c	Sat Dec 07 21:37:34 2002 +0000
+++ b/src/data.c	Sat Dec 07 21:38:39 2002 +0000
@@ -715,6 +715,9 @@
      (symbol, definition, docstring)
      register Lisp_Object symbol, definition, docstring;
 {
+  if (CONSP (XSYMBOL (symbol)->function)
+      && EQ (XCAR (XSYMBOL (symbol)->function), Qautoload))
+    LOADHIST_ATTACH (Fcons (Qt, symbol));
   definition = Ffset (symbol, definition);
   LOADHIST_ATTACH (symbol);
   if (!NILP (docstring))