summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2004-05-02 17:23:04 +0000
committerEli Zaretskii <eliz@gnu.org>2004-05-02 17:23:04 +0000
commit052ca4d1d2fffca52c6e69c4f8cd480ca547463e (patch)
treedeadb1606f449c0c35f8d285503313a1721dbc72
parent4f9ae122650926b107b8b6bd4e5b0cf97abeacd9 (diff)
downloademacs-052ca4d1d2fffca52c6e69c4f8cd480ca547463e.tar.gz
(compilation-start): In the no-async-subprocesses branch, fontify
the buffer explicitly after the process exits.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/progmodes/compile.el4
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