From c22256a16ee314e5dc0bbe7620ff0a735ef55be0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Sep 1998 15:45:17 +0000 Subject: [PATCH] (uncompress-while-visiting): Use just the car of what find-operation-coding-system returns. --- lisp/uncompress.el | 6 +++--- 1 file 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." (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") -- 2.39.2