comparison src/fns.c @ 177:6075d714658b r20-3b15

Import from CVS: tag r20-3b15
author cvs
date Mon, 13 Aug 2007 09:51:16 +0200
parents 2d532a89d707
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
176:6866abce6aaf 177:6075d714658b
3450 /* Value saved here is to be restored into Vautoload_queue */ 3450 /* Value saved here is to be restored into Vautoload_queue */
3451 record_unwind_protect (un_autoload, Vautoload_queue); 3451 record_unwind_protect (un_autoload, Vautoload_queue);
3452 Vautoload_queue = Qt; 3452 Vautoload_queue = Qt;
3453 3453
3454 call4 (Qload, NILP (file_name) ? Fsymbol_name (feature) : file_name, 3454 call4 (Qload, NILP (file_name) ? Fsymbol_name (feature) : file_name,
3455 Qt, Qt, Qnil); 3455 Qnil, Qt, Qnil);
3456 3456
3457 tem = Fmemq (feature, Vfeatures); 3457 tem = Fmemq (feature, Vfeatures);
3458 if (NILP (tem)) 3458 if (NILP (tem))
3459 error ("Required feature %s was not provided", 3459 error ("Required feature %s was not provided",
3460 string_data (XSYMBOL (feature)->name)); 3460 string_data (XSYMBOL (feature)->name));