From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 22:05:44 +0000 (+0000)
Subject: Add 'NO-OUTPUT display-style option which does full update of internal
X-Git-Tag: 20090517-FFI~7241
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=358d781326f67f4b63c8b9f65f74c8effdb7f5d7;p=mit-scheme.git

Add 'NO-OUTPUT display-style option which does full update of internal
data structures, but does not update the screen.
---

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index 533a22378..f7855ef17 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: screen.scm,v 1.104 1994/03/08 22:04:44 cph Exp $
+;;;	$Id: screen.scm,v 1.105 1994/03/08 22:05:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -174,7 +174,8 @@
 (define (update-screen! screen display-style)
   (and (or (not (screen-visible? screen))
 	   (begin
-	     (if display-style (screen-force-update screen))
+	     (if (and display-style (not (eq? 'NO-OUTPUT display-style)))
+		 (screen-force-update screen))
 	     (with-screen-in-update screen display-style
 	       (lambda ()
 		 (editor-frame-update-display! (screen-root-window screen)