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

Make #163 compatible with flymake in Emacs 26 (#166)

Browse source 
Make #163 compatible with flymake in Emacs 26
This commit is contained in:
Vincent Zhang 2019-05-04 10:51:19 -05:00 committed by GitHub
commit afd031bd79
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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))))))