jessieh/mood-line
jessieh/mood-line
1
Fork 2
Code Issues 4 Pull Requests 1 Releases Activity

Improve general compatibility of flymake segment

Browse Source
This commit is contained in:
Jessie Hildebrandt 2023-10-16 13:35:08 -04:00
parent 060959f5e2
commit bcd8725b21
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mood-line.el
View File

@ -77,6 +77,7 @@
(declare-function flymake-running-backends "flymake" ()) (declare-function flymake-running-backends "flymake" ())
(declare-function flymake-reporting-backends "flymake" ()) (declare-function flymake-reporting-backends "flymake" ())
(declare-function flymake--lookup-type-property "flymake" (type prop &optional default))
(declare-function mood-line-segment-indentation--segment "mood-line-segment-indentation" ()) (declare-function mood-line-segment-indentation--segment "mood-line-segment-indentation" ())
@ -571,7 +572,8 @@ Counts will be returned in an alist as the `cdr' of the following keys:
"Return count of current flymake reports of TYPE." "Return count of current flymake reports of TYPE."
(let ((count 0)) (let ((count 0))
(dolist (d (flymake-diagnostics)) (dolist (d (flymake-diagnostics))
(when (eq (cl-struct-slot-value 'flymake--diag 'type d) type) (when (eq (flymake--lookup-type-property (flymake-diagnostic-type d) 'severity)
(flymake--lookup-type-property type 'severity))
(cl-incf count))) (cl-incf count)))
count)) count))