From: Juri Linkov <juri@linkov.net>
Date: Thu, 11 Jul 2019 21:46:12 +0000 (+0300)
Subject: * lisp/progmodes/compile.el (compilation-filter): Use font-lock-ensure
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2385
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=ef6715364dd94f98dcdf60ff295c89ac856de882;p=emacs.git

* lisp/progmodes/compile.el (compilation-filter): Use font-lock-ensure

to update the number of errors in compilation-mode-line-errors
displayed in the mode-line.  (Bug#36564)
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 1a0d9bdbb70..a1df67fadfe 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2245,6 +2245,8 @@ and runs `compilation-filter-hook'."
               (unless comint-inhibit-carriage-motion
                 (comint-carriage-motion (process-mark proc) (point)))
               (set-marker (process-mark proc) (point))
+              ;; Update the number of errors in compilation-mode-line-errors
+              (font-lock-ensure compilation-filter-start (point))
               ;; (set (make-local-variable 'compilation-buffer-modtime)
               ;;      (current-time))
               (run-hooks 'compilation-filter-hook))