mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(uncompress-while-visiting):

Browse source 
Use just the car of what find-operation-coding-system returns.
This commit is contained in:
Karl Heuer 1998-09-10 15:45:17 +00:00
parent dbd7a811cc
commit c22256a16e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/uncompress.el
View file

@ -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")