diff options
| author | Jambunathan K <kjambunathan@gmail.com> | 2011-06-27 17:12:17 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-06-27 17:12:17 -0400 |
| commit | 36c9fa271d540940a800aec5e62e6d4fb13ea475 (patch) | |
| tree | b98bbfa9b6a2450ab897e6cbdfae3cbd49eba154 /lisp/tar-mode.el | |
| parent | d615d6d2887f159f1a7337be7bd175ce22013e1f (diff) | |
| download | emacs-36c9fa271d540940a800aec5e62e6d4fb13ea475.tar.gz emacs-36c9fa271d540940a800aec5e62e6d4fb13ea475.tar.bz2 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.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 () |