diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
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 |