(main) [MSDOS]: Handle DJGPP version 2.

diff --git a/lib-src/b2m.c b/lib-src/b2m.c
index 9da7a91b60f7de6090bc49e639225304c09a26d9..88d0acd5cd89549e328e2828e8f5bf2c7fb42e26 100644 (file)
--- a/lib-src/b2m.c
+++ b/lib-src/b2m.c
@@ -89,8 +89,15 @@ main (argc, argv)
 
 #ifdef MSDOS
   _fmode = O_BINARY;           /* all of files are treated as binary files */
+#if __DJGPP__ > 1
+  if (!isatty (fileno (stdout)))
+    setmode (fileno (stdout), O_BINARY);
+  if (!isatty (fileno (stdin)))
+    setmode (fileno (stdin), O_BINARY);
+#else /* not __DJGPP__ > 1 */
   (stdout)->_flag &= ~_IOTEXT;
   (stdin)->_flag &= ~_IOTEXT;
+#endif /* not __DJGPP__ > 1 */
 #endif
   progname = argv[0];
 

diff --git a/src/emacs.c b/src/emacs.c
index 3b221a108ec444fd5dc2734b2fbc7e7345fec7b8..b6e97bc8c9ef7af9e31226a30c7c0b25590e5362 100644 (file)
--- a/src/emacs.c
+++ b/src/emacs.c
@@ -532,9 +532,20 @@ main (argc, argv, envp)
   /* We do all file input/output as binary files.  When we need to translate
      newlines, we do that manually.  */
   _fmode = O_BINARY;
+
+#if __DJGPP__ >= 2
+  if (!isatty (fileno (stdin)))
+    setmode (fileno (stdin), O_BINARY);
+  if (!isatty (fileno (stdout)))
+    {
+      fflush (stdout);
+      setmode (fileno (stdout), O_BINARY);
+    }
+#else  /* not __DJGPP__ >= 2 */
   (stdin)->_flag &= ~_IOTEXT;
   (stdout)->_flag &= ~_IOTEXT;
   (stderr)->_flag &= ~_IOTEXT;
+#endif /* not __DJGPP__ >= 2 */
 #endif /* MSDOS */
 
 #ifdef SET_EMACS_PRIORITY
@@ -776,9 +787,17 @@ Usage: %s [-t term] [--terminal term]  [-nw] [--no-windows]  [--batch]\n\
   /* Call early 'cause init_environment needs it.  */
   init_dosfns ();
   /* Set defaults for several environment variables.  */
-  if (initialized) init_environment (argc, argv, skip_args);
-  else init_gettimeofday ();
+  if (initialized)
+    init_environment (argc, argv, skip_args);
+  else
+    {
+#if __DGJPP__ >= 2
+      tzset ();
+#else
+      init_gettimeofday ();
 #endif
+    }
+#endif /* MSDOS */
 
 #ifdef WINDOWSNT
   /* Initialize environment from registry settings.  */