Commit 29b89fe0 authored by Richard M. Stallman's avatar Richard M. Stallman

(main) [MSDOS]: Call init_environment. Set file types to

binary for all files.  Call init_dosfns.
(fatal_error_signal) [MSDOS]: Uncomment sigblock.
parent 128ecc89
...@@ -150,7 +150,9 @@ fatal_error_signal (sig) ...@@ -150,7 +150,9 @@ fatal_error_signal (sig)
Remember that since we're in a signal handler, the signal we're Remember that since we're in a signal handler, the signal we're
going to send is probably blocked, so we have to unblock it if we going to send is probably blocked, so we have to unblock it if we
want to really receive it. */ want to really receive it. */
#ifndef MSDOS
sigunblock (sigmask (fatal_error_code)); sigunblock (sigmask (fatal_error_code));
#endif
kill (getpid (), fatal_error_code); kill (getpid (), fatal_error_code);
#endif /* not VMS */ #endif /* not VMS */
} }
...@@ -367,6 +369,15 @@ main (argc, argv, envp) ...@@ -367,6 +369,15 @@ main (argc, argv, envp)
} }
#endif /* not SYSTEM_MALLOC */ #endif /* not SYSTEM_MALLOC */
#ifdef MSDOS
/* We do all file input/output as binary files. When we need to translate
newlines, we do that manually. */
_fmode = O_BINARY;
(stdin)->_flag &= ~_IOTEXT;
(stdout)->_flag &= ~_IOTEXT;
(stderr)->_flag &= ~_IOTEXT;
#endif /* MSDOS */
#ifdef PRIO_PROCESS #ifdef PRIO_PROCESS
if (emacs_priority) if (emacs_priority)
nice (emacs_priority); nice (emacs_priority);
...@@ -512,6 +523,13 @@ main (argc, argv, envp) ...@@ -512,6 +523,13 @@ main (argc, argv, envp)
init_eval (); init_eval ();
init_data (); init_data ();
#ifdef MSDOS
/* Call early 'cause init_environment needs it. */
init_dosfns ();
/* Set defaults for several environment variables. */
if (initialized) init_environment (argc, argv, skip_args);
#endif
/* egetenv is a pretty low-level facility, which may get called in /* egetenv is a pretty low-level facility, which may get called in
many circumstances; it seems flimsy to put off initializing it many circumstances; it seems flimsy to put off initializing it
until calling init_callproc. */ until calling init_callproc. */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment