Mercurial > emacs
comparison src/eval.c @ 2596:ee5b45777c6f
(un_autoload): Don't try to save old autoload forms when we load something
in. Something about the code now conditioned out by UNLOAD was screwing
up ordinary autoloads, notably of picture.el. When I figure out what, I'll
fix and re-enable this code.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Tue, 27 Apr 1993 21:59:59 +0000 |
parents | c73c68a87cd5 |
children | 5122736c0a03 |
comparison
equal
deleted
inserted
replaced
2595:6a1ad0661928 | 2596:ee5b45777c6f |
---|---|
1389 /* Value saved here is to be restored into Vautoload_queue */ | 1389 /* Value saved here is to be restored into Vautoload_queue */ |
1390 record_unwind_protect (un_autoload, Vautoload_queue); | 1390 record_unwind_protect (un_autoload, Vautoload_queue); |
1391 Vautoload_queue = Qt; | 1391 Vautoload_queue = Qt; |
1392 Fload (Fcar (Fcdr (fundef)), Qnil, noninteractive ? Qt : Qnil, Qnil); | 1392 Fload (Fcar (Fcdr (fundef)), Qnil, noninteractive ? Qt : Qnil, Qnil); |
1393 | 1393 |
1394 #ifdef UNLOAD | |
1394 /* Save the old autoloads, in case we ever do an unload. */ | 1395 /* Save the old autoloads, in case we ever do an unload. */ |
1395 queue = Vautoload_queue; | 1396 queue = Vautoload_queue; |
1396 while (CONSP (queue)) | 1397 while (CONSP (queue)) |
1397 { | 1398 { |
1398 first = Fcar (queue); | 1399 first = Fcar (queue); |
1400 first = Fcar (first); | 1401 first = Fcar (first); |
1401 if (!EQ (second, Qnil)) | 1402 if (!EQ (second, Qnil)) |
1402 Fput(first, Qautoload, (Fcdr (second))); | 1403 Fput(first, Qautoload, (Fcdr (second))); |
1403 queue = Fcdr (queue); | 1404 queue = Fcdr (queue); |
1404 } | 1405 } |
1406 #endif /* UNLOAD */ | |
1405 | 1407 |
1406 /* Once loading finishes, don't undo it. */ | 1408 /* Once loading finishes, don't undo it. */ |
1407 Vautoload_queue = Qt; | 1409 Vautoload_queue = Qt; |
1408 unbind_to (count, Qnil); | 1410 unbind_to (count, Qnil); |
1409 | 1411 |