From 8632cea6f4f09ac0f99081dd6e9d67cf9e65a1a7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 16 May 1991 23:13:21 +0000 Subject: [PATCH] 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. --- v7/src/edwin/fileio.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.25.1