From 88d3fb11460c94c65b13919aaefec5f5a8f70954 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 27 Jun 2011 17:16:28 -0400 Subject: [PATCH] Merge fix for Bug#8870 from trunk --- lisp/ChangeLog | 5 +++++ lisp/tar-mode.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f6d665e0f0e..e91bb059d60 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-06-27 Jambunathan K + + * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to + no-conversion (Bug#8870). + 2011-06-19 Chong Yidong * frame.el (special-display-popup-frame): Doc fix (Bug#8853). diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index ba9294a846a..7335a7ff527 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -477,7 +477,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 () -- 2.11.4.GIT