From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Jan 1994 08:48:32 +0000 (+0000)
Subject: (main) [MSDOS]: Call init_environment.  Set file types to
X-Git-Tag: emacs-19.34~10358
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29b89fe042eb86fda2473778ef303fbf695fdf11;p=emacs.git

(main) [MSDOS]: Call init_environment.  Set file types to
binary for all files.  Call init_dosfns.
(fatal_error_signal) [MSDOS]: Uncomment sigblock.
---

diff --git a/src/emacs.c b/src/emacs.c
index a8952ad2a28..b3f4ca79814 100644
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -150,7 +150,9 @@ fatal_error_signal (sig)
      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 @@ main (argc, argv, envp)
     }
 #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 @@ main (argc, argv, envp)
   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.  */