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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index abf1255da5a7513f4546e0516b0907bfc1e2bd78..745384d85c5195d4e8d473212d7b8edf6dfcdba4 100644 (file)
--- 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 bbf4774fd72617c76cfd24b00f075d37fc3e8893..8fade4c67684e1f80b0d3df49cc92db56cc3d1bb 100644 (file)
--- 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)))