Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!bionet!apple!gem.mps.ohio-state.edu!wuarchive!cs.utexas.edu!mailrus!tut.cis.ohio-state.edu!BBN.COM!wolfgang
From: wolfgang@BBN.COM
Newsgroups: gnu.emacs.bug
Subject: buffer-read-only in uncompress.el
Message-ID: <8909262047.AA09355@life.ai.mit.edu>
Date: 26 Sep 89 20:42:04 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: Freelance Software Consultant, Washington DC.
Lines: 29

In GNU Emacs 18.55.1 of Wed Aug 23 1989 on sun3 (berkeley-unix)

Uncompressing a file that was unwritable fails due to the buffer
being marked as read-only.

cd $EMACS/lisp/
diff -c uncompress.el.~1~ uncompress.el
*** uncompress.el.~1~	Wed Jul 20 14:23:55 1988
--- uncompress.el	Tue Sep 26 16:33:13 1989
***************
*** 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")

---
Wolfgang Rupprecht	ARPA:  wolfgang@mgm.mit.edu (IP 18.82.0.114)
TEL: (703) 768-2640	UUCP:  mit-eddie!mgm.mit.edu!wolfgang