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 533a223786fc8fb1126b54c3e671f192a7455d8d..f7855ef17a150997c8087ddf06e9974cf0be38ff 100644 (file)
--- 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)