Mercurial > emacs
changeset 79082:b27741b11f5a
(do_autoload): Don't save autoloads.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 14 Oct 2007 18:00:05 +0000 |
| parents | 4f36fa10b069 |
| children | de1e5c00a8ce |
| files | src/eval.c |
| diffstat | 1 files changed, 2 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Sun Oct 14 02:52:40 2007 +0000 +++ b/src/eval.c Sun Oct 14 18:00:05 2007 +0000 @@ -466,7 +466,7 @@ struct gcpro gcpro1, gcpro2; register int argnum = 0; - if (NILP(args)) + if (NILP (args)) return Qnil; args_left = args; @@ -2146,7 +2146,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 @@ -2167,20 +2167,6 @@ Vautoload_queue = Qt; Fload (Fcar (Fcdr (fundef)), Qnil, noninteractive ? Qt : Qnil, 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);