(tar-copy): Supply MUSTBENEW arg to write-region.

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abf1255da5a..745384d85c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-06-09  Dave Love  <fx@gnu.org>
 
+        * tar-mode.el (tar-copy): Supply MUSTBENEW arg to write-region.
+
         * executable.el: Byte compile dynamic.
         (executable-insert): Change custom type.
         (executable-find): Add autoload cookie.
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index bbf4774fd72..8fade4c6768 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -834,7 +834,7 @@ the current tar-entry."
       (unwind-protect
           (let ((coding-system-for-write 'no-conversion))
             (set-buffer-multibyte nil)
-            (write-region start end to-file))
+            (write-region start end to-file nil nil nil t))
         (set-buffer-multibyte multibyte)))
     (message "Copied tar entry %s to %s" name to-file)))