From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 22:04:44 +0000 (+0000)
Subject: Add 'NO-OUTPUT display-style option which does full update of internal
X-Git-Tag: 20090517-FFI~7242
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7b58f33455c50edcc160d4bada75434ff3914523;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 9f5508e2c..533a22378 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: screen.scm,v 1.103 1993/08/16 08:04:03 cph Exp $
+;;;	$Id: screen.scm,v 1.104 1994/03/08 22:04:44 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -650,7 +650,8 @@
 	       (lambda ()
 		 (and (thunk)
 		      (or (not (screen-needs-update? screen))
-			  (screen-update screen display-style))
+			  (and (not (eq? 'NO-OUTPUT display-style))
+			       (screen-update screen display-style)))
 		      (begin
 			(screen-update-cursor screen)
 			true))))))