diff options
| author | Jambunathan K | 2011-06-27 17:12:17 -0400 |
|---|---|---|
| committer | Chong Yidong | 2011-06-27 17:12:17 -0400 |
| commit | 36c9fa271d540940a800aec5e62e6d4fb13ea475 (patch) | |
| tree | b98bbfa9b6a2450ab897e6cbdfae3cbd49eba154 | |
| parent | d615d6d2887f159f1a7337be7bd175ce22013e1f (diff) | |
| download | emacs-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/ChangeLog | 13 | ||||
| -rw-r--r-- | lisp/tar-mode.el | 3 |
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 @@ | |||
| 1 | 2011-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 | |||
| 6 | 2011-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 | |||
| 1 | 2011-06-27 Martin Rudalics <rudalics@gmx.at> | 14 | 2011-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 () |