# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 905442317 0
# Node ID b3821a9c287309ea124cc04ea6ea2113814c9178
# Parent  da40016c87676f784e43dbc768f11d4026a94410
(uncompress-while-visiting):
Use just the car of what find-operation-coding-system returns.

diff -r da40016c8767 -r b3821a9c2873 lisp/uncompress.el
--- 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")