From 03e2cd5878b628aeb399add82c00ad0a1997f071 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 15 Mar 1989 19:14:13 +0000 Subject: [PATCH] Change `read-buffer' to correctly update the read-only flag. Also fix some bugs which might have occurred if the truename was #F. --- v7/src/edwin/fileio.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm index dd0b7edf8..14477462b 100644 --- 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) -- 2.25.1