sven@tde.lth.se (Sven Mattisson) (09/26/88)
Uncompress-while-visiting in uncompress.el does not uncompress write
protected files properly. The following diff fixes the problem.
*** uncompress.el.18.52 Sun Sep 25 21:20:03 1988
--- uncompress.el Sun Sep 25 21:20:38 1988
***************
*** 6,12
(set-visited-file-name
(substring buffer-file-name 0 (match-beginning 0))))
(message "Uncompressing...")
! (shell-command-on-region (point-min) (point-max) "uncompress" t)
(message "Uncompressing...done")
(set-buffer-modified-p nil)
(normal-mode))
--- 6,13 -----
(set-visited-file-name
(substring buffer-file-name 0 (match-beginning 0))))
(message "Uncompressing...")
! (let ((buffer-read-only nil))
! (shell-command-on-region (point-min) (point-max) "uncompress" t))
(message "Uncompressing...done")
(set-buffer-modified-p nil)
(normal-mode))
------------------------------------------------------------------------
Sven Mattisson sven@tde.lth.se
Department of Applied Electronics
University of Lund
Lund, Sweden