Mercurial > emacs

changeset 22483:d21d2c3762c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uncompress-while-visiting): Bind coding-system-for-write and coding-system-for-read.
author Richard M. Stallman <rms@gnu.org>
date Sun, 14 Jun 1998 19:01:06 +0000
parents eb09852bfc05
children 661650f543ee
files lisp/uncompress.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/uncompress.el	Sun Jun 14 18:46:20 1998 +0000
+++ b/lisp/uncompress.el	Sun Jun 14 19:01:06 1998 +0000
@@ -72,7 +72,12 @@
           (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")