comparison src/lread.c @ 39857:6235c0f8e52c

(substitute_object_recurse): Use traverse_intervals_noorder. (syms_of_lread) <Vafter_load_alist>: Update docstring.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 12 Oct 2001 22:07:35 +0000
parents 2a3f4d2a5ccc
children 579177964efa
comparison
equal deleted inserted replaced
39856:3fb9aba0cbd4 39857:6235c0f8e52c
2478 substitute_in_interval contains part of the logic. */ 2478 substitute_in_interval contains part of the logic. */
2479 2479
2480 INTERVAL root_interval = XSTRING (subtree)->intervals; 2480 INTERVAL root_interval = XSTRING (subtree)->intervals;
2481 Lisp_Object arg = Fcons (object, placeholder); 2481 Lisp_Object arg = Fcons (object, placeholder);
2482 2482
2483 traverse_intervals (root_interval, 1, 0, 2483 traverse_intervals_noorder (root_interval,
2484 &substitute_in_interval, arg); 2484 &substitute_in_interval, arg);
2485 2485
2486 return subtree; 2486 return subtree;
2487 } 2487 }
2488 2488
2489 /* Other types don't recurse any further. */ 2489 /* Other types don't recurse any further. */
3561 When `load' is run and the file-name argument is FILENAME,\n\ 3561 When `load' is run and the file-name argument is FILENAME,\n\
3562 the FORMS in the corresponding element are executed at the end of loading.\n\n\ 3562 the FORMS in the corresponding element are executed at the end of loading.\n\n\
3563 FILENAME must match exactly! Normally FILENAME is the name of a library,\n\ 3563 FILENAME must match exactly! Normally FILENAME is the name of a library,\n\
3564 with no directory specified, since that is how `load' is normally called.\n\ 3564 with no directory specified, since that is how `load' is normally called.\n\
3565 An error in FORMS does not undo the load,\n\ 3565 An error in FORMS does not undo the load,\n\
3566 but does prevent execution of the rest of the FORMS."); 3566 but does prevent execution of the rest of the FORMS.\n\
3567 FILENAME can also be a symbol (a feature) and FORMS are then executed\n\
3568 when the corresponding call to `provide' is made.");
3567 Vafter_load_alist = Qnil; 3569 Vafter_load_alist = Qnil;
3568 3570
3569 DEFVAR_LISP ("load-history", &Vload_history, 3571 DEFVAR_LISP ("load-history", &Vload_history,
3570 "Alist mapping source file names to symbols and features.\n\ 3572 "Alist mapping source file names to symbols and features.\n\
3571 Each alist element is a list that starts with a file name,\n\ 3573 Each alist element is a list that starts with a file name,\n\