Mercurial > hg > xemacs-beta

comparison src/process.c @ 253:157b30c96d03 r20-5b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b25
author cvs
date Mon, 13 Aug 2007 10:20:27 +0200
parents 677f6a0ee643
children 084402c475ba
comparison
equal deleted inserted replaced
252:afb15df44434 253:157b30c96d03
866 p->subtty = forkin; 866 p->subtty = forkin;
867 p->status_symbol = Qrun; 867 p->status_symbol = Qrun;
868 p->exit_code = 0; 868 p->exit_code = 0;
869 869
870 { 870 {
871 #if !defined(__CYGWIN32__)
871 /* child_setup must clobber environ on systems with true vfork. 872 /* child_setup must clobber environ on systems with true vfork.
872 Protect it from permanent change. */ 873 Protect it from permanent change. */
873 /* char **save_environ = environ;*/ 874 char **save_environ = environ;
875 #endif
874 876
875 #ifdef EMACS_BTL 877 #ifdef EMACS_BTL
876 /* when performance monitoring is on, turn it off before the vfork(), 878 /* when performance monitoring is on, turn it off before the vfork(),
877 as the child has no handler for the signal -- when back in the 879 as the child has no handler for the signal -- when back in the
878 parent process, turn it back on if it was really on when you "turned 880 parent process, turn it back on if it was really on when you "turned
1022 #ifdef EMACS_BTL 1024 #ifdef EMACS_BTL
1023 else if (logging_on) 1025 else if (logging_on)
1024 cadillac_start_logging (); /* #### rename me */ 1026 cadillac_start_logging (); /* #### rename me */
1025 #endif 1027 #endif
1026 1028
1027 /* environ = save_environ;*/ 1029 #if !defined(__CYGWIN32__)
1030 environ = save_environ;
1031 #endif
1028 } 1032 }
1029 1033
1030 if (pid < 0) 1034 if (pid < 0)
1031 { 1035 {
1032 close_descriptor_pair (forkin, forkout); 1036 close_descriptor_pair (forkin, forkout);