From 543a770222f772f0719e0686d1e11cf2dd8b7bd8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Mar 1992 10:06:39 +0000
Subject: [PATCH] Change UPDATE-SCREENS! to scan each screen exactly once. 
 Don't mess with screen order when doing updates.

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

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index 0cf967217..fbdc15abe 100644
--- a/v7/src/edwin/curren.scm
+++ b/v7/src/edwin/curren.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/curren.scm,v 1.99 1992/02/17 22:08:43 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/curren.scm,v 1.100 1992/03/13 10:06:39 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -108,16 +108,10 @@
 	     (update-screen! screen false)))))))
 
 (define (update-screens! display-style)
-  (if display-style
-      (let loop ((screens (screen-list)))
-	(or (null? screens)
-	    (and (update-screen! (car screens) display-style)
-		 (loop (cdr screens)))))
-      (let loop ((screens (cons (selected-screen) (screen-list))))
-	(or (null? screens)
-	    (and (or (screen-in-update? (car screens))
-		     (update-screen! (car screens) false))
-		 (loop (cdr screens)))))))
+  (let loop ((screens (screen-list)))
+    (or (null? screens)
+	(and (update-screen! (car screens) display-style)
+	     (loop (cdr screens))))))
 
 (define (update-selected-screen! display-style)
   (update-screen! (selected-screen) display-style))
-- 
2.25.1