2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06206a94a4f..2d53836e40b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,7 +2,8 @@
 
         * 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.
+        chance to show the updated process status in the mode line, and
+        fontify the buffer explicitly after the process exits.
 
 2004-05-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 376136e33ae..da05a7ff8bb 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -959,6 +959,10 @@ exited abnormally with code %d\n"
                                           (concat status "\n")))
                 (t
                  (compilation-handle-exit 'bizarre status status))))
+        ;; Without async subprocesses, the buffer is not yet
+        ;; fontified, so fontify it now.
+        (let ((font-lock-verbose nil))  ; shut up font-lock messages
+          (font-lock-fontify-buffer))
         (message "Executing `%s'...done" command)))
     (if (buffer-local-value 'compilation-scroll-output outbuf)
         (save-selected-window