(compile-internal): Force redisplay on compilation

buffer before executing compile process.
This commit is contained in:
Richard M. Stallman 1995-01-20 23:45:34 +00:00
parent e0585c647b
commit 4dba7b41a4

View file

@ -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)))))