aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJambunathan K2011-06-27 17:12:17 -0400
committerChong Yidong2011-06-27 17:12:17 -0400
commit36c9fa271d540940a800aec5e62e6d4fb13ea475 (patch)
treeb98bbfa9b6a2450ab897e6cbdfae3cbd49eba154
parentd615d6d2887f159f1a7337be7bd175ce22013e1f (diff)
downloademacs-36c9fa271d540940a800aec5e62e6d4fb13ea475.tar.gz
emacs-36c9fa271d540940a800aec5e62e6d4fb13ea475.zip
Coding system fix for tar-untar-buffer (Bug#8870).
* lisp/tar-mode.el (tar-untar-buffer): Set coding-system-for-write to no-conversion.
-rw-r--r--lisp/ChangeLog13
-rw-r--r--lisp/tar-mode.el3
2 files changed, 15 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fe51fc341b..7861d3dd113 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
12011-06-27 Jambunathan K <kjambunathan@gmail.com>
2
3 * tar-mode.el (tar-untar-buffer): Set coding-system-for-write to
4 no-conversion (Bug#8870).
5
62011-06-27 Chong Yidong <cyd@stupidchicken.com>
7
8 * mouse.el: Rebind mouse-2 to mouse-yank-at-click; use an option
9 for primary insertion. Suggested by David De La Harpe Golden.
10 (mouse-yank-primary): New option.
11 (mouse-yank-at-click): Obey it.
12 (mouse-yank-primary): Call mouse-yank-at-click.
13
12011-06-27 Martin Rudalics <rudalics@gmx.at> 142011-06-27 Martin Rudalics <rudalics@gmx.at>
2 15
3 * window.el (window-right, window-left, window-child) 16 * 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."
474 (if (and dir (not (file-exists-p dir))) 474 (if (and dir (not (file-exists-p dir)))
475 (make-directory dir t)) 475 (make-directory dir t))
476 (unless (file-directory-p name) 476 (unless (file-directory-p name)
477 (write-region start end name)) 477 (let ((coding-system-for-write 'no-conversion))
478 (write-region start end name)))
478 (set-file-modes name (tar-header-mode descriptor)))))))) 479 (set-file-modes name (tar-header-mode descriptor))))))))
479 480
480(defun tar-summarize-buffer () 481(defun tar-summarize-buffer ()