Don't do random call to EDITOR-CHAR-READY?.

diff --git a/v7/src/edwin/winout.scm b/v7/src/edwin/winout.scm
index a9bbeba9d88d40e4f93d295e902922a57f5f59e4..51d86845b07876e8cf6cd5ae5eff1be58b66fd42 100644 (file)
--- a/v7/src/edwin/winout.scm
+++ b/v7/src/edwin/winout.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/winout.scm,v 1.7 1991/11/26 08:03:38 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/winout.scm,v 1.8 1992/02/13 22:19:34 cph Exp $
 ;;;
-;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;    Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -99,10 +99,6 @@
          (region-insert-string! point string)))))
 
 (define (operation/flush-output port)
-  ;; Calling `editor-char-ready?' gives the screen abstraction a
-  ;; chance to do refresh if it needs to (e.g. if an X exposure event
-  ;; is received).
-  ((editor-char-ready? current-editor))
   (let ((window (port/state port)))
     (if (window-needs-redisplay? window)
        (window-direct-update! window false))))