Change `read-buffer' to correctly update the read-only flag. Also fix

some bugs which might have occurred if the truename was #F.

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index dd0b7edf8ac0cd3a38e622d4f3abaa822bd4d38d..14477462b4fea11918de086ad7a4ce7a2f6a4e54 100644 (file)
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.86 1989/03/14 08:00:41 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.87 1989/03/15 19:14:13 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -50,12 +50,14 @@
         (let ((region (file->region-interactive truename)))
           (region-delete! (buffer-unclipped-region buffer))
           (region-insert! (buffer-start buffer) region))
-        (set-buffer-point! buffer (buffer-start buffer)))
+        (set-buffer-point! buffer (buffer-start buffer))
+        (set-buffer-modification-time! buffer
+                                       (file-modification-time truename))
+        (if (file-writable? truename)
+            (set-buffer-writeable! buffer)
+            (set-buffer-read-only! buffer)))
        (temporary-message "(New File)"))
-    (set-buffer-truename! buffer truename)
-    (set-buffer-modification-time! buffer (file-modification-time truename))
-    (if (not (file-writable? truename))
-       (set-buffer-file-read-only! buffer)))
+    (set-buffer-truename! buffer truename))
   (set-buffer-pathname! buffer pathname)
   (setup-buffer-auto-save! buffer)
   (set-buffer-save-length! buffer)