# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 960560317 0
# Node ID 2bb2a1ef8e7ef6c34655dc4c70964a31b6b04533
# Parent  59fe91d3c0c60a4a2bcac1eaa2aaefc8f1636ad0
(tar-copy): Supply MUSTBENEW arg to write-region.

diff -r 59fe91d3c0c6 -r 2bb2a1ef8e7e lisp/tar-mode.el
--- a/lisp/tar-mode.el	Fri Jun 09 10:27:24 2000 +0000
+++ b/lisp/tar-mode.el	Fri Jun 09 14:18:37 2000 +0000
@@ -834,7 +834,7 @@
       (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)))