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>
2005-09-27 16:36:52 +00:00 · 2005-09-27 16:36:52 +00:00 · cec1cc5d56
parent 8a1cd89844
commit cec1cc5d56
1 changed files with 2 additions and 1 deletions
--- a/scheme/job.scm
+++ b/scheme/job.scm
@ -319,12 +319,13 @@
  (save-tty-excursion
   (current-input-port)
   (lambda ()
+     (obtain-lock paint-lock)
     (def-prog-mode)
     (clear)
+     (refresh)
     (endwin)
     (restore-initial-tty-info! (current-input-port))
     (drain-tty (current-output-port))
-     (obtain-lock paint-lock)
     (let ((foreground-pgrp (tty-process-group (current-output-port)))
 	   (proc
 	    (fork