Commit d945992e authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(do_autoload): Don't save autoloads.

parent 9099b373
......@@ -2178,7 +2178,7 @@ do_autoload (fundef, funname)
Lisp_Object fundef, funname;
{
int count = SPECPDL_INDEX ();
Lisp_Object fun, queue, first, second;
Lisp_Object fun;
struct gcpro gcpro1, gcpro2, gcpro3;
/* This is to make sure that loadup.el gives a clear picture
......@@ -2199,20 +2199,6 @@ do_autoload (fundef, funname)
Vautoload_queue = Qt;
Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt);
/* Save the old autoloads, in case we ever do an unload. */
queue = Vautoload_queue;
while (CONSP (queue))
{
first = XCAR (queue);
second = Fcdr (first);
first = Fcar (first);
if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload))
Fput (first, Qautoload, (XCDR (second)));
queue = XCDR (queue);
}
/* Once loading finishes, don't undo it. */
Vautoload_queue = Qt;
unbind_to (count, Qnil);
......
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