# HG changeset patch # User Eli Zaretskii # Date 1083518528 0 # Node ID f7017af1bd0bfd628a059869ccfec6aa4be9798a # Parent 3b7a4fa9b2d8c20b92764873657e7d73e6ca80dc (compilation-start): In the no-async-subprocesses branch, fontify the buffer explicitly after the process exits. diff -r 3b7a4fa9b2d8 -r f7017af1bd0b lisp/progmodes/compile.el --- a/lisp/progmodes/compile.el Sun May 02 17:17:57 2004 +0000 +++ b/lisp/progmodes/compile.el Sun May 02 17:22:08 2004 +0000 @@ -959,6 +959,10 @@ (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