X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0a20c80c9cee34a71b975bb37ac811bd339eaf9f..98cd6c18c57c031d8c0a0d13284375b8ccf60439:/lisp/tar-mode.el

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 39855a1c8c..6217132897 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -474,7 +474,8 @@ MODE should be an integer which is a file mode value."
             (if (and dir (not (file-exists-p dir)))
                 (make-directory dir t))
             (unless (file-directory-p name)
-              (write-region start end name))
+	      (let ((coding-system-for-write 'no-conversion))
+		(write-region start end name)))
             (set-file-modes name (tar-header-mode descriptor))))))))
 
 (defun tar-summarize-buffer ()