# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1083512205 0
# Node ID 3757f583f280fa1b643f0c110c4688ab63d95163
# Parent  b1c52f4076c48cfcdd5c99a87429159e173bfc6b
(compilation-start): In the no-async-subprocesses branch, call
sit-for to give redisplay a chance to show the updated process
status in the mode line.

diff -r b1c52f4076c4 -r 3757f583f280 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun May 02 01:49:08 2004 +0000
+++ b/lisp/progmodes/compile.el	Sun May 02 15:36:45 2004 +0000
@@ -944,6 +944,7 @@
 	;; Fake modeline display as if `start-process' were run.
 	(setq mode-line-process ":run")
 	(force-mode-line-update)
+	(sit-for 0)			; Force redisplay
 	(let ((status (call-process shell-file-name nil outbuf nil "-c"
 				    command)))
 	  (cond ((numberp status)