Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 0 deletions
src/eval.c
View file @ f58e9f8c
......@@ -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;
......
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