From f58e9f8c1a3b086610ccd86301770d206589e3ac Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 7 Dec 2002 21:39:18 +0000 Subject: [PATCH] (Fdefun, Fdefmacro): Record in load-history redefining an autoload. --- src/eval.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/eval.c b/src/eval.c index d59a3cd9eb..9cac429324 100644 --- a/src/eval.c +++ b/src/eval.c @@ -637,6 +637,9 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */) 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 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) 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; -- 2.20.1