Fix a drawing problem

part of darcs patch Sun Sep 18 12:16:57 EEST 2005 Eric Knauel <knauel@informatik.uni-tuebingen.de>
2005-09-27 08:58:54 +00:00
parent 44c95c43e5
commit 2973bc8d99
1 changed files with 2 additions and 2 deletions
@@ -54,6 +54,7 @@
 (define (goto-next-line termbuf)
  (set-terminal-buffer-y!
   termbuf (+ (terminal-buffer-y termbuf) 1))
+  (set-terminal-buffer-paint-fun! termbuf position-cursor)
  (maybe-scroll-terminal-buffer termbuf))

 (define (move-cursor termbuf x-offset y-offset)
@@ -108,8 +109,7 @@
   ((char=? char #\newline)
    (if (cursor-on-last-line? termbuf)
 	(append-empty-line termbuf))
-    (goto-next-line termbuf)
-    (set-terminal-buffer-paint-fun! termbuf position-cursor))
+    (goto-next-line termbuf))
   ((char-set-contains? char-set:printing char)
    (add-normal-char termbuf char))))