From 543d9e63a78626797b5b61d753fa3a9f61c16f77 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 7 Apr 2006 09:44:31 +0000
Subject: [PATCH] Repaint only if input channel is empty

---
 scheme/nuit-engine.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index ef5f7ff..2086c3c 100644
--- 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)