(compile-internal): Force redisplay on compilation

buffer before executing compile process.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5317aeb3b8c33e14b88394cde85162ff3db8dbf4..4cd464e1c2a66420e8641db60003a2578593f7df 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -398,6 +398,7 @@ Returns the compilation buffer created."
                    (cons proc compilation-in-progress)))
          ;; No asynchronous processes available
          (message (format "Executing `%s'..." command))
+         (sit-for 0) ;; Force redisplay
          (let ((status (call-process shell-file-name nil outbuf nil "-c"
                                      command))))
          (message (format "Executing `%s'...done" command)))))