fix painting a single line
This commit is contained in:
parent
88c6250483
commit
60ad7d02c4
|
@ -439,6 +439,7 @@
|
|||
rendezvous
|
||||
rendezvous-channels
|
||||
|
||||
ncurses
|
||||
plugin
|
||||
tty-debug
|
||||
result-buffer-changes
|
||||
|
|
|
@ -158,10 +158,9 @@
|
|||
|
||||
(define (paint-single-line termbuf win)
|
||||
(debug-message "paint-single-line " termbuf)
|
||||
(wmove win (terminal-buffer-y termbuf) 0)
|
||||
(wclrtoeol win)
|
||||
(mvwaddstr win
|
||||
(terminal-buffer-y termbuf) 0
|
||||
(line-at-cursor-position termbuf))
|
||||
(waddstr win (line-at-cursor-position termbuf))
|
||||
(position-cursor termbuf win))
|
||||
|
||||
(define (position-cursor termbuf win)
|
||||
|
|
Loading…
Reference in New Issue