Fix more repainting bugs

This commit is contained in:
eknauel 2005-05-11 08:40:46 +00:00
parent ddaf279938
commit 1f50c28485
1 changed files with 5 additions and 3 deletions

View File

@ -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