Change UPDATE-SCREENS! to scan each screen exactly once. Don't mess

with screen order when doing updates.

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index 0cf967217c0faf085aee7bb60ef5b6c4cf20470a..fbdc15abee16e54ffd97b1d74ea5bfc7acd6d60a 100644 (file)
--- 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)))))))
 \f
 (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))