# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790645534 0
# Node ID a8379d78b06a1cf17900c725b496421edff6508e
# Parent  4f7f9b9ff5131399a73beea11aa4f4163e90e9e9
(compile-internal): Force redisplay on compilation
buffer before executing compile process.

diff -r 4f7f9b9ff513 -r a8379d78b06a lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Jan 20 23:40:45 1995 +0000
+++ b/lisp/progmodes/compile.el	Fri Jan 20 23:45:34 1995 +0000
@@ -398,6 +398,7 @@
 		    (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)))))