From cbec51ab9a906338ba8c2c3eabfd95c2d86a9bc5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Mar 1992 23:58:38 +0000
Subject: [PATCH] Change SCREEN-VISIBLE? to be true for a visibility of
 'PARTIALLY-OBSCURED as well as the usual 'VISIBLE.

---
 v7/src/edwin/screen.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index b34c7264e..13f4b3c03 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.98 1992/03/13 12:01:04 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.99 1992/03/13 23:58:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -160,8 +160,9 @@
 (define (window-screen window)
   (editor-frame-screen (window-root-window window)))
 
-(define-integrable (screen-visible? screen)
-  (eq? 'VISIBLE (screen-visibility screen)))
+(define (screen-visible? screen)
+  (or (eq? 'VISIBLE (screen-visibility screen))
+      (eq? 'PARTIALLY-OBSCURED (screen-visibility screen))))
 
 (define-integrable (screen-deleted? screen)
   (eq? 'DELETED (screen-visibility screen)))
-- 
2.25.1