Mercurial > emacs

diff src/eval.c @ 48724:ccd782f27e54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdefun, Fdefmacro): Record in load-history redefining an autoload.
author Richard M. Stallman <rms@gnu.org>
date Sat, 07 Dec 2002 21:39:18 +0000
parents 8faa4c711a1a
children 7b5cd8383f0b
line wrap: on
line diff
--- 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;