From 7a784f27db9875b8efcb7e71d87769281463f2a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 14 Jun 1998 19:01:06 +0000 Subject: [PATCH] (uncompress-while-visiting): Bind coding-system-for-write and coding-system-for-read. --- lisp/uncompress.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/uncompress.el b/lisp/uncompress.el index ceaa0dac1ba..c731c23baf6 100644 --- a/lisp/uncompress.el +++ b/lisp/uncompress.el @@ -72,7 +72,12 @@ It then selects a major mode from the uncompressed file name and contents." (set-visited-file-name (concat (substring buffer-file-name 0 (match-beginning 0)) ".tar"))))) (message "Uncompressing...") - (let ((buffer-read-only nil)) + (let ((buffer-read-only nil) + (coding-system-for-write 'no-conversion) + (coding-system-for-read + (find-operation-coding-system + 'insert-file-contents + buffer-file-name t))) (shell-command-on-region (point-min) (point-max) uncompress-program t)) (goto-char (point-min)) (message "Uncompressing...done")