diff options
| author | Karl Heuer | 1998-09-10 15:45:17 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-09-10 15:45:17 +0000 |
| commit | c22256a16ee314e5dc0bbe7620ff0a735ef55be0 (patch) | |
| tree | 808460c61eab45a907a4613e3e4cd5233adbd4cd | |
| parent | dbd7a811cc300ef71728614eb379cb3545d5c29b (diff) | |
| download | emacs-c22256a16ee314e5dc0bbe7620ff0a735ef55be0.tar.gz emacs-c22256a16ee314e5dc0bbe7620ff0a735ef55be0.zip | |
(uncompress-while-visiting):
Use just the car of what find-operation-coding-system returns.
| -rw-r--r-- | lisp/uncompress.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/uncompress.el b/lisp/uncompress.el index c731c23baf6..53439190a1d 100644 --- a/lisp/uncompress.el +++ b/lisp/uncompress.el | |||
| @@ -75,9 +75,9 @@ It then selects a major mode from the uncompressed file name and contents." | |||
| 75 | (let ((buffer-read-only nil) | 75 | (let ((buffer-read-only nil) |
| 76 | (coding-system-for-write 'no-conversion) | 76 | (coding-system-for-write 'no-conversion) |
| 77 | (coding-system-for-read | 77 | (coding-system-for-read |
| 78 | (find-operation-coding-system | 78 | (car (find-operation-coding-system |
| 79 | 'insert-file-contents | 79 | 'insert-file-contents |
| 80 | buffer-file-name t))) | 80 | buffer-file-name t)))) |
| 81 | (shell-command-on-region (point-min) (point-max) uncompress-program t)) | 81 | (shell-command-on-region (point-min) (point-max) uncompress-program t)) |
| 82 | (goto-char (point-min)) | 82 | (goto-char (point-min)) |
| 83 | (message "Uncompressing...done") | 83 | (message "Uncompressing...done") |