(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.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d214753a58..972ba721ffa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-02  Eli Zaretskii  <eliz@gnu.org>
+
+        * progmodes/compile.el (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.
+
 2004-05-01  Luc Teirlinck  <teirllm@auburn.edu>
 
         * ielm.el (ielm-prompt-read-only): Update docstring.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d31a93311b5..376136e33ae 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -944,6 +944,7 @@ Returns the compilation buffer created."
         ;; 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)