From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 20 Jan 1995 23:45:34 +0000 (+0000)
Subject: (compile-internal): Force redisplay on compilation
X-Git-Tag: emacs-19.34~5352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dba7b41a451b8348f9fddead74f9dcbaefeb542;p=emacs.git

(compile-internal): Force redisplay on compilation
buffer before executing compile process.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5317aeb3b8c..4cd464e1c2a 100644
--- 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)))))