Mercurial > emacs
changeset 23224:b3821a9c2873
(uncompress-while-visiting):
Use just the car of what find-operation-coding-system returns.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 10 Sep 1998 15:45:17 +0000 |
| parents | da40016c8767 |
| children | 17a79bc7bfe1 |
| files | lisp/uncompress.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/uncompress.el Thu Sep 10 15:43:50 1998 +0000 +++ b/lisp/uncompress.el Thu Sep 10 15:45:17 1998 +0000 @@ -75,9 +75,9 @@ (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))) + (car (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")