(Fwrite_region) [DOS_NT]: Remove O_TRUNC from open

flags argument to emacs_open; it seems to conflict with O_EXCL.

diff --git a/src/ChangeLog b/src/ChangeLog
index 14e557e3827716a1d77021e9538df3a0851e4aaa..68964536ae7fe274df831e8d346042a54b33740f 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-09  Gerd Moellmann  <gerd@gnu.org>
+
+       * fileio.c (Fwrite_region) [DOS_NT]: Remove O_TRUNC from open
+       flags argument to emacs_open; it seems to conflict with O_EXCL.
+
 2001-03-09  Kenichi Handa  <handa@etl.go.jp>
 
        * composite.h (struct composition): Change types of members;

diff --git a/src/fileio.c b/src/fileio.c
index dc0878739882e16b239f22c816c865a559d0c71b..fb40e549710a54d6757a4458decbd63bc5bd2e1c 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4684,8 +4684,8 @@ This does code conversion according to the value of\n\
 #else /* not VMS */
 #ifdef DOS_NT
   desc = emacs_open (fn,
-                    O_WRONLY | O_TRUNC | O_CREAT | buffer_file_type
-                    | (mustbenew == Qexcl ? O_EXCL : 0),
+                    O_WRONLY | O_CREAT | buffer_file_type
+                    | (EQ (mustbenew, Qexcl) ? O_EXCL : O_TRUNC),
                     S_IREAD | S_IWRITE);
 #else  /* not DOS_NT */
   desc = emacs_open (fn, O_WRONLY | O_TRUNC | O_CREAT