# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758018912 0
# Node ID 2a0ba54aefb5665aa88dd2a3af35b25df3ab6bb7
# Parent  ededb7b52564ee65cd0a1d2b679312db1da2c5be
(main) [MSDOS]: Call init_environment.  Set file types to
binary for all files.  Call init_dosfns.
(fatal_error_signal) [MSDOS]: Uncomment sigblock.

diff -r ededb7b52564 -r 2a0ba54aefb5 src/emacs.c
--- a/src/emacs.c	Sat Jan 08 08:47:19 1994 +0000
+++ b/src/emacs.c	Sat Jan 08 08:48:32 1994 +0000
@@ -150,7 +150,9 @@
      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
      want to really receive it.  */
+#ifndef MSDOS
   sigunblock (sigmask (fatal_error_code));
+#endif
   kill (getpid (), fatal_error_code);
 #endif /* not VMS */
 }
@@ -367,6 +369,15 @@
     }
 #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
   if (emacs_priority)
     nice (emacs_priority);
@@ -512,6 +523,13 @@
   init_eval ();
   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
      many circumstances; it seems flimsy to put off initializing it
      until calling init_callproc.  */