From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 May 1991 23:13:21 +0000 (+0000)
Subject: When reading a file into a buffer, guarantee that the modified flag
X-Git-Tag: 20090517-FFI~10565
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8632cea6f4f09ac0f99081dd6e9d67cf9e65a1a7;p=mit-scheme.git

When reading a file into a buffer, guarantee that the modified flag
for that buffer is set, so that the modification code doesn't check to
see if the buffer's contents is consistent with the file it came from.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 768292a70..b8f266e59 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.100 1991/05/15 17:42:51 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/fileio.scm,v 1.101 1991/05/16 23:13:21 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -58,6 +58,8 @@
   (let ((truename (pathname->input-truename pathname)))
     (if truename
 	(begin
+	  ;; Set modified so that file supercession check isn't done.
+	  (set-group-modified! (buffer-group buffer) true)
 	  (region-delete! (buffer-unclipped-region buffer))
 	  (%insert-file (buffer-start buffer) truename)
 	  (set-buffer-point! buffer (buffer-start buffer))))