Fix more repainting bugs
This commit is contained in:
parent
ddaf279938
commit
1f50c28485
|
@ -378,9 +378,11 @@
|
||||||
(switch restore-message)
|
(switch restore-message)
|
||||||
(execute-command)
|
(execute-command)
|
||||||
(set! command-history-pos (- (length text-command) 1))
|
(set! command-history-pos (- (length text-command) 1))
|
||||||
;(loop (paint))))
|
(paint-result-window)
|
||||||
(endwin)
|
(paint-bar-2)
|
||||||
(run))))
|
(paint-command-window-contents)
|
||||||
|
(move-cursor command-buffer)
|
||||||
|
(loop (wait-for-input)))))
|
||||||
|
|
||||||
(else
|
(else
|
||||||
(begin
|
(begin
|
||||||
|
|
Loading…
Reference in New Issue