(compilation-start): In the no-async-subprocesses branch, fontify

the buffer explicitly after the process exits.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06206a94a4f30187ec01b9be10f171326f175674..2d53836e40b856d4958e968120592e266461d374 100644 (file)
--- 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 376136e33ae1e0fd88c615f78d92c9334e4f6b5b..da05a7ff8bb0ed89d7562da2b9443f4126906016 100644 (file)
--- 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