From: Eli Zaretskii Date: Sun, 2 May 2004 17:23:04 +0000 (+0000) Subject: (compilation-start): In the no-async-subprocesses branch, fontify X-Git-Tag: ttn-vms-21-2-B4~6456 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=052ca4d1d2fffca52c6e69c4f8cd480ca547463e;p=emacs.git (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 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 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