comparison src/emacs.c @ 288:e11d67e05968 r21-0b42

Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children 70ad99077275
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
1570 an interactive run (redisplay, user input, etc.) and stuff that is 1570 an interactive run (redisplay, user input, etc.) and stuff that is
1571 not needed until we start loading Lisp code (the reader). A lot 1571 not needed until we start loading Lisp code (the reader). A lot
1572 of this stuff involves querying the current environment and needs 1572 of this stuff involves querying the current environment and needs
1573 to be done both at dump time and at run time. */ 1573 to be done both at dump time and at run time. */
1574 1574
1575 init_initial_directory(); /* get the directory to use for the
1576 "*scratch*" buffer, etc. */
1577
1578 #ifdef WINDOWSNT
1579 /*
1580 * For Win32, call init_environment() now, so that environment/registry
1581 * variables will be properly entered into Vprocess_envonment.
1582 */
1583 init_environment();
1584 #endif
1585
1575 init_callproc (); /* Set up the process environment (so that egetenv 1586 init_callproc (); /* Set up the process environment (so that egetenv
1576 works), the basic directory variables 1587 works), the basic directory variables
1577 (exec-directory and so on), and stuff 1588 (exec-directory and so on), and stuff
1578 related to subprocesses. This should be 1589 related to subprocesses. This should be
1579 first because many of the functions below 1590 first because many of the functions below
1584 init_dosfns (); 1595 init_dosfns ();
1585 /* Set defaults for several environment variables. */ 1596 /* Set defaults for several environment variables. */
1586 init_environment (argc, argv, skip_args); 1597 init_environment (argc, argv, skip_args);
1587 #endif 1598 #endif
1588 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */ 1599 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */
1589 init_buffer (); /* Init default directory of *scratch* buffer */ 1600 init_buffer (); /* Set default directory of *scratch* buffer */
1590 1601
1591 #ifdef WINDOWSNT 1602 #ifdef WINDOWSNT
1592 init_environment();
1593 init_ntproc(); 1603 init_ntproc();
1594 #endif 1604 #endif
1595 1605
1596 init_redisplay (); /* Determine terminal type. 1606 init_redisplay (); /* Determine terminal type.
1597 init_sys_modes uses results */ 1607 init_sys_modes uses results */