Coding system fix for tar-untar-buffer (Bug#8870).

* lisp/tar-mode.el (tar-untar-buffer): Set coding-system-for-write
to no-conversion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fe51fc341b1c18378392610015648672c82ba94..7861d3dd1134cfc46164e18ccee2f0edf1c53bdb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2011-06-27  Jambunathan K  <kjambunathan@gmail.com>
+
+       * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to
+       no-conversion (Bug#8870).
+
+2011-06-27  Chong Yidong  <cyd@stupidchicken.com>
+
+       * mouse.el: Rebind mouse-2 to mouse-yank-at-click; use an option
+       for primary insertion.  Suggested by David De La Harpe Golden.
+       (mouse-yank-primary): New option.
+       (mouse-yank-at-click): Obey it.
+       (mouse-yank-primary): Call mouse-yank-at-click.
+
 2011-06-27  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (window-right, window-left, window-child)

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 39855a1c8cc157d60be25bb1c6db3eb1a9f93c97..62171328979871aaea782bd46e7803fbadacb5e1 100644 (file)
--- 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 ()