mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(uncompress-while-visiting):

Browse Source 
Bind coding-system-for-write and coding-system-for-read.
This commit is contained in:
Richard M. Stallman 1998-06-14 19:01:06 +00:00
parent dd81ca0dd8
commit 7a784f27db
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/uncompress.el
View File

@ -72,7 +72,12 @@ It then selects a major mode from the uncompressed file name and contents."
(set-visited-file-name
(concat (substring buffer-file-name 0 (match-beginning 0)) ".tar")))))
(message "Uncompressing...")
(let ((buffer-read-only nil))
(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)))
(shell-command-on-region (point-min) (point-max) uncompress-program t))
(goto-char (point-min))
(message "Uncompressing...done")