(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d214753a581c4fd195889d00139c2746482d19e..972ba721ffa99196a941447c943edf969e8587ba 100644 (file)
--- 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 d31a93311b515f4638d13bb576d46ed27429f14f..376136e33ae1e0fd88c615f78d92c9334e4f6b5b 100644 (file)
--- 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)