From 36c9fa271d540940a800aec5e62e6d4fb13ea475 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 27 Jun 2011 17:12:17 -0400 Subject: [PATCH] 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/ChangeLog | 13 +++++++++++++ lisp/tar-mode.el | 3 ++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8fe51fc341b..7861d3dd113 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2011-06-27 Jambunathan K + + * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to + no-conversion (Bug#8870). + +2011-06-27 Chong Yidong + + * 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 * window.el (window-right, window-left, window-child) 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 () -- 2.39.2