From af5d579e8d81f147233621ed1f48955e1dbba1c6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Oct 1990 23:32:36 +0000
Subject: [PATCH] Fix bug: `line-inferiors-changed!' must update the
 `inferiors' instance variable even if `override-message' is set.

---
 v7/src/edwin/bufwin.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 9559230ba..41c1dbba1 100644
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.284 1990/10/03 04:54:16 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.285 1990/10/05 23:32:36 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -365,7 +365,7 @@ and this buffer is not full-screen width."
 
 (define (line-inferiors-changed! window)
   (with-instance-variables buffer-window window ()
-    (define (loop inferiors start)
+    (let loop ((inferiors line-inferiors) (start (mark-index start-line-mark)))
       (if (null? (cdr inferiors))
 	  (begin
 	    (set! last-line-inferior (car inferiors))
@@ -377,9 +377,10 @@ and this buffer is not full-screen width."
 					  true))))
 	  (loop (cdr inferiors)
 		(fix:+ start (line-inferior-length inferiors)))))
-    (loop line-inferiors (mark-index start-line-mark))
-    (if (not override-inferior)
-	(set! inferiors (cons* cursor-inferior blank-inferior line-inferiors)))
+    (set! inferiors
+	  (if override-inferior
+	      (list override-inferior cursor-inferior blank-inferior)
+	      (cons* cursor-inferior blank-inferior line-inferiors)))
     unspecific))
 
 (define (y->inferiors window y)
-- 
2.25.1