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