Eliminate gratuitous calls from MARK-FLASH and SIT-FOR to

KEYBOARD-PEEK-NO-CHAR.  These calls were originally there to eliminate
unnecessary screen update and to make the cursor flash appropriately;
recent changes to KEYBOARD-PEEK-NO-CHAR make this undesirable.

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 08810f9747f6e18b3ea79b94921d3c297d29b498..446686ee455850ee1dac58bc0fe74df20ac773d1 100644 (file)
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.41 1992/02/17 22:09:45 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.42 1992/02/19 00:01:59 cph Exp $
 ;;;
 ;;;    Copyright (c) 1985, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -216,10 +216,9 @@
   (cond (*executing-keyboard-macro?* unspecific)
        ((not mark) (editor-beep))
        ((window-mark-visible? (current-window) mark)
-        (if (not (keyboard-peek-no-hang))
-            (with-current-point mark
-              (lambda ()
-                (sit-for 500)))))
+        (with-current-point mark
+          (lambda ()
+            (sit-for 500))))
        (else
         (temporary-message
          "Matches "
@@ -232,13 +231,10 @@
 
 (define (sit-for interval)
   (let ((time-limit (+ (real-time-clock) interval)))
-    (if (not (keyboard-peek-no-hang))
-       (begin
-        (update-screens! false)
-        (let loop ()
-          (if (and (not (keyboard-peek-no-hang))
-                   (< (real-time-clock) time-limit))
-              (loop)))))))
+    (let loop ()
+      (if (and (not (keyboard-peek-no-hang))
+              (< (real-time-clock) time-limit))
+         (loop)))))
 
 (define (sleep-for interval)
   (let ((time-limit (+ (real-time-clock) interval)))