diff options
| -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") |