Path: utzoo!utgpu!water!watmath!uunet!mcvax!enea!kth!draken!Urd!hurratio!sven
From: sven@tde.lth.se (Sven Mattisson)
Newsgroups: gnu.emacs.bug
Subject: 18.52 uncompress has problem with read-only files
Message-ID: 
Date: 25 Sep 88 19:42:28 GMT
Sender: sven@hurratio.tde.lth.se
Distribution: gnu
Organization: Dept. of Applied Electronics, University of Lund, Sweden
Lines: 30

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