# HG changeset patch # User Juanma Barranquero # Date 1192382453 0 # Node ID b4736439ea2d79dcb5e6c75a51a0911380035108 # Parent 691f06f3e5095ed31ffef58e34faab13ef254e10 (do_autoload): Don't save autoloads. diff -r 691f06f3e509 -r b4736439ea2d src/eval.c --- a/src/eval.c Sun Oct 14 02:52:58 2007 +0000 +++ b/src/eval.c Sun Oct 14 17:20:53 2007 +0000 @@ -2178,7 +2178,7 @@ 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 @@ 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);