mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the buffer explicitly after the process exits.
This commit is contained in:
Eli Zaretskii 2004-05-02 17:23:04 +00:00
parent 4f9ae12265
commit 052ca4d1d2
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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>

4
lisp/progmodes/compile.el
View file

@ -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