[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ace749f: Count Flymake diagnostics in modeline by severity, not t
From: |
Jo�o T�vora |
Subject: |
master ace749f: Count Flymake diagnostics in modeline by severity, not type |
Date: |
Sat, 9 Jan 2021 13:53:38 -0500 (EST) |
branch: master
commit ace749f2e3be5b23cf4cd29c702a0e82d4d871c3
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Count Flymake diagnostics in modeline by severity, not type
Originally reported in https://github.com/joaotavora/eglot/issues/588
by Pankaj Jangid.
* lisp/progmodes/flymake.el (flymake--mode-line-counter): Count
diagnostics by severity level, not by type.
(Version): Bump to 1.1.1
---
lisp/progmodes/flymake.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index fddc13f..460af71 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -4,7 +4,7 @@
;; Author: Pavel Kobyakov <pk_at_work@yahoo.com>
;; Maintainer: João Távora <joaotavora@gmail.com>
-;; Version: 1.1.0
+;; Version: 1.1.1
;; Keywords: c languages tools
;; Package-Requires: ((emacs "26.1") (eldoc "1.1.0"))
@@ -1283,6 +1283,8 @@ correctly.")
(when (flymake-running-backends) flymake-mode-line-counter-format))
(defun flymake--mode-line-counter (type &optional no-space)
+ "Compute number of diagnostics in buffer with TYPE's severity.
+TYPE is usually keyword `:error', `:warning' or `:note'."
(let ((count 0)
(face (flymake--lookup-type-property type
'mode-line-face
@@ -1290,7 +1292,8 @@ correctly.")
(maphash (lambda
(_b state)
(dolist (d (flymake--backend-state-diags state))
- (when (eq type (flymake--diag-type d))
+ (when (= (flymake--severity type)
+ (flymake--severity (flymake--diag-type d)))
(cl-incf count))))
flymake--backend-state)
(when (or (cl-plusp count)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ace749f: Count Flymake diagnostics in modeline by severity, not type,
Jo�o T�vora <=