From 36c9fa271d540940a800aec5e62e6d4fb13ea475 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 27 Jun 2011 17:12:17 -0400 Subject: Coding system fix for tar-untar-buffer (Bug#8870). * lisp/tar-mode.el (tar-untar-buffer): Set coding-system-for-write to no-conversion. --- lisp/tar-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/tar-mode.el') diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 39855a1c8cc..62171328979 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 () -- cgit v1.2.1