[Emacs-diffs] /srv/bzr/emacs/trunk r104764: Coding system fix for tar-untar-buffer (Bug#8870).

[Chong Yidong]

------------------------------------------------------------
revno: 104764
author: Jambunathan K <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-06-27 17:12:17 -0400
message:
  Coding system fix for tar-untar-buffer (Bug#8870).
  
  * lisp/tar-mode.el (tar-untar-buffer): Set coding-system-for-write
  to no-conversion.
modified:
  lisp/ChangeLog
  lisp/tar-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-27 18:32:56 +0000
+++ b/lisp/ChangeLog    2011-06-27 21:12:17 +0000
@@ -1,3 +1,16 @@
+2011-06-27  Jambunathan K  <address@hidden>
+
+       * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to
+       no-conversion (Bug#8870).
+
+2011-06-27  Chong Yidong  <address@hidden>
+
+       * 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  <address@hidden>
 
        * window.el (window-right, window-left, window-child)

=== modified file 'lisp/tar-mode.el'
--- a/lisp/tar-mode.el  2011-04-19 13:44:55 +0000
+++ b/lisp/tar-mode.el  2011-06-27 21:12:17 +0000
@@ -474,7 +474,8 @@
             (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 ()