github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make #163 compatible with flymake in Emacs 26

Browse source
This commit is contained in:
vjoki 2019-05-04 13:51:02 +03:00
parent 413d414dd9
commit 7bf66dc24a
No known key found for this signature in database
GPG key ID: 6D0384751320C946
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
doom-modeline-segments.el
View file

@ -127,7 +127,7 @@
(declare-function flymake--backend-state-diags 'flymake) (declare-function flymake--backend-state-diags 'flymake)
(declare-function flymake--diag-type 'flymake) (declare-function flymake--diag-type 'flymake)
(declare-function flymake--handle-report 'flymake) (declare-function flymake--handle-report 'flymake)
(declare-function flymake--severity 'flymake) (declare-function flymake--lookup-type-property 'flymake)
(declare-function flymake-disabled-backends 'flymake) (declare-function flymake-disabled-backends 'flymake)
(declare-function flymake-goto-next-error 'flymake) (declare-function flymake-goto-next-error 'flymake)
(declare-function flymake-goto-prev-error 'flymake) (declare-function flymake-goto-prev-error 'flymake)
@ -779,7 +779,8 @@ wheel-up/wheel-down: Previous/next error"))
do (cl-loop do (cl-loop
with diags = (flymake--backend-state-diags state) with diags = (flymake--backend-state-diags state)
for diag in diags do for diag in diags do
(let ((severity (flymake--severity (flymake--diag-type diag)))) (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity
(warning-numeric-level :error))))
(cond ((> severity warning-level) (cl-incf .error)) (cond ((> severity warning-level) (cl-incf .error))
((> severity note-level) (cl-incf .warning)) ((> severity note-level) (cl-incf .warning))
(t (cl-incf .note)))))) (t (cl-incf .note))))))
@ -842,7 +843,8 @@ mouse-2: Show help for minor mode"
(cl-loop (cl-loop
with diags = (flymake--backend-state-diags state) with diags = (flymake--backend-state-diags state)
for diag in diags do for diag in diags do
(let ((severity (flymake--severity (flymake--diag-type diag)))) (let ((severity (flymake--lookup-type-property (flymake--diag-type diag) 'severity
(warning-numeric-level :error))))
(cond ((> severity warning-level) (cl-incf .error)) (cond ((> severity warning-level) (cl-incf .error))
((> severity note-level) (cl-incf .warning)) ((> severity note-level) (cl-incf .warning))
(t (cl-incf .note)))))) (t (cl-incf .note))))))