From 358d781326f67f4b63c8b9f65f74c8effdb7f5d7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 22:05:44 +0000
Subject: [PATCH] Add 'NO-OUTPUT display-style option which does full update of
 internal data structures, but does not update the screen.

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

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)
-- 
2.25.1