diff options
| author | Juri Linkov | 2019-07-12 00:46:12 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-07-12 00:46:12 +0300 |
| commit | ef6715364dd94f98dcdf60ff295c89ac856de882 (patch) | |
| tree | ed15c187949d39d226883ea09280a0952a388b41 | |
| parent | 53fb021acc9cae6dcfc3cbe2004a070036e5c4e7 (diff) | |
| download | emacs-ef6715364dd94f98dcdf60ff295c89ac856de882.tar.gz emacs-ef6715364dd94f98dcdf60ff295c89ac856de882.zip | |
* 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)
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
1 files changed, 2 insertions, 0 deletions
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'." | |||
| 2245 | (unless comint-inhibit-carriage-motion | 2245 | (unless comint-inhibit-carriage-motion |
| 2246 | (comint-carriage-motion (process-mark proc) (point))) | 2246 | (comint-carriage-motion (process-mark proc) (point))) |
| 2247 | (set-marker (process-mark proc) (point)) | 2247 | (set-marker (process-mark proc) (point)) |
| 2248 | ;; Update the number of errors in compilation-mode-line-errors | ||
| 2249 | (font-lock-ensure compilation-filter-start (point)) | ||
| 2248 | ;; (set (make-local-variable 'compilation-buffer-modtime) | 2250 | ;; (set (make-local-variable 'compilation-buffer-modtime) |
| 2249 | ;; (current-time)) | 2251 | ;; (current-time)) |
| 2250 | (run-hooks 'compilation-filter-hook)) | 2252 | (run-hooks 'compilation-filter-hook)) |