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

Refresh after (clear), obtain paint-lock earlier 

part of darcs patch Thu Sep 22 23:04:37 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:36:52 +00:00
parent 8a1cd89844
commit cec1cc5d56
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/job.scm
View File

@ -319,12 +319,13 @@
(save-tty-excursion (save-tty-excursion
(current-input-port) (current-input-port)
(lambda () (lambda ()
(obtain-lock paint-lock)
(def-prog-mode) (def-prog-mode)
(clear) (clear)
(refresh)
(endwin) (endwin)
(restore-initial-tty-info! (current-input-port)) (restore-initial-tty-info! (current-input-port))
(drain-tty (current-output-port)) (drain-tty (current-output-port))
(obtain-lock paint-lock)
(let ((foreground-pgrp (tty-process-group (current-output-port))) (let ((foreground-pgrp (tty-process-group (current-output-port)))
(proc (proc
(fork (fork