Repaint only if input channel is empty

2006-04-07 09:44:31 +00:00 · 2006-04-07 09:44:31 +00:00 · 543d9e63a7
parent bd1f30f129
commit 543d9e63a7
1 changed files with 2 additions and 1 deletions
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@ -548,7 +548,8 @@
    (result-buffer-handle-key ch))
   (else
    (input (command-buffer) ch)
-    (repaint-command-winow!))))
+    (if (null? (select-port-channels 0 (current-input-port)))
+        (repaint-command-winow!)))))

 (define (repaint-command-winow!)
  (obtain-lock paint-lock)