Commit f58e9f8c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fdefun, Fdefmacro): Record in load-history redefining an autoload.

parent 894f6538
...@@ -637,6 +637,9 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */) ...@@ -637,6 +637,9 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */)
defn = Fcons (Qlambda, Fcdr (args)); defn = Fcons (Qlambda, Fcdr (args));
if (!NILP (Vpurify_flag)) if (!NILP (Vpurify_flag))
defn = Fpurecopy (defn); 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); Ffset (fn_name, defn);
LOADHIST_ATTACH (fn_name); LOADHIST_ATTACH (fn_name);
return fn_name; return fn_name;
...@@ -702,6 +705,9 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */) ...@@ -702,6 +705,9 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...) */)
if (!NILP (Vpurify_flag)) if (!NILP (Vpurify_flag))
defn = Fpurecopy (defn); 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); Ffset (fn_name, defn);
LOADHIST_ATTACH (fn_name); LOADHIST_ATTACH (fn_name);
return fn_name; return fn_name;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment