aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
authorJuanma Barranquero2007-10-14 17:20:53 +0000
committerJuanma Barranquero2007-10-14 17:20:53 +0000
commitd945992e32fd243aef865d770c1d6b97e547f200 (patch)
treedc65a1aa312156f643b603927c6adc425edcf102 /src/eval.c
parent9099b37326fe09c2ed2763aefbcba7176583bf9d (diff)
downloademacs-d945992e32fd243aef865d770c1d6b97e547f200.tar.gz
emacs-d945992e32fd243aef865d770c1d6b97e547f200.zip
(do_autoload): Don't save autoloads.
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c16
1 files changed, 1 insertions, 15 deletions
diff --git a/src/eval.c b/src/eval.c
index 77abe5046db..b69eea44c75 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2178,7 +2178,7 @@ do_autoload (fundef, funname)
2178 Lisp_Object fundef, funname; 2178 Lisp_Object fundef, funname;
2179{ 2179{
2180 int count = SPECPDL_INDEX (); 2180 int count = SPECPDL_INDEX ();
2181 Lisp_Object fun, queue, first, second; 2181 Lisp_Object fun;
2182 struct gcpro gcpro1, gcpro2, gcpro3; 2182 struct gcpro gcpro1, gcpro2, gcpro3;
2183 2183
2184 /* This is to make sure that loadup.el gives a clear picture 2184 /* This is to make sure that loadup.el gives a clear picture
@@ -2199,20 +2199,6 @@ do_autoload (fundef, funname)
2199 Vautoload_queue = Qt; 2199 Vautoload_queue = Qt;
2200 Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt); 2200 Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt);
2201 2201
2202 /* Save the old autoloads, in case we ever do an unload. */
2203 queue = Vautoload_queue;
2204 while (CONSP (queue))
2205 {
2206 first = XCAR (queue);
2207 second = Fcdr (first);
2208 first = Fcar (first);
2209
2210 if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload))
2211 Fput (first, Qautoload, (XCDR (second)));
2212
2213 queue = XCDR (queue);
2214 }
2215
2216 /* Once loading finishes, don't undo it. */ 2202 /* Once loading finishes, don't undo it. */
2217 Vautoload_queue = Qt; 2203 Vautoload_queue = Qt;
2218 unbind_to (count, Qnil); 2204 unbind_to (count, Qnil);