Use new 'NO-OUTPUT display style to suppress visible changes to the

screen when reverting a buffer.

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index e8443203876f877c4fe8a838b5c24235b9af8211..c8c4d51a06288a08c83fbd1426b57e67e3dd1dcf 100644 (file)
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: vc.scm,v 1.7 1994/03/08 21:54:38 cph Exp $
+;;;    $Id: vc.scm,v 1.8 1994/03/08 22:06:19 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994 Massachusetts Institute of Technology
 ;;;
@@ -840,7 +840,7 @@ the value of vc-log-mode-hook."
 ;;;; RCS Commands
 
 (define vc-type:rcs
-  (make-vc-type 'RCS "$Id: vc.scm,v 1.7 1994/03/08 21:54:38 cph Exp $"))
+  (make-vc-type 'RCS "$Id: vc.scm,v 1.8 1994/03/08 22:06:19 cph Exp $"))
 
 (define-vc-master-template vc-type:rcs
   (lambda (pathname)
@@ -1194,7 +1194,7 @@ the value of vc-log-mode-hook."
        (point-context (vc-mark-context (buffer-point buffer)))
        (mark-context (vc-mark-context (buffer-mark buffer))))
     (revert-buffer buffer #t dont-confirm?)
-    (update-screens! #f)
+    (update-screens! 'NO-OUTPUT)
     (if (null? point-contexts)
        (let ((m (vc-find-context buffer point-context)))
          (if m