scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix a drawing problem 

part of darcs patch Sun Sep 18 12:16:57 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:58:54 +00:00
parent 44c95c43e5
commit 2973bc8d99
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/termbuf.scm
View File

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