[nongnu] elpa/flymake-kondor 784e57f: Adapt check following example on the manual

[ELPA Syncer]

branch: elpa/flymake-kondor
commit 784e57f36812a37e323409b90b935ef3c6920a22
Author: Manuel Uberti <manuel.uberti@inventati.org>
Commit: Manuel Uberti <manuel.uberti@inventati.org>

    Adapt check following example on the manual
    
    See: 
https://github.com/emacs-mirror/emacs/commit/f5b4bb4a6fa3adcb653cab5dc760745b896320bb
---
 flymake-kondor.el | 53 ++++++++++++++++++++++++++---------------------------
 1 file changed, 26 insertions(+), 27 deletions(-)

diff --git a/flymake-kondor.el b/flymake-kondor.el
index 505b76d..d836548 100644
--- a/flymake-kondor.el
+++ b/flymake-kondor.el
@@ -4,7 +4,7 @@
 ;;
 ;; Author: https://turbocafe.keybase.pub
 ;; Created: 3 November 2019
-;; Version: 0.1.2
+;; Version: 0.1.3
 ;; Package-Requires: ((emacs "26.1"))
 ;; URL: https://github.com/turbo-cafe/flymake-kondor
 ;;; Commentary:
@@ -59,32 +59,31 @@
         :command `("clj-kondo" "--lint" "-" "--lang" ,lang)
         :sentinel
         (lambda (proc _event)
-          (let ((status (process-status proc)))
-            (when (or (eq status 'exit) (eq status 'signal))
-              (unwind-protect
-                  (if (with-current-buffer source (eq proc 
flymake-kondor--flymake-proc))
-                      (with-current-buffer (process-buffer proc)
-                        (goto-char (point-min))
-                        (cl-loop
-                         while (search-forward-regexp
-                                "^.+:\\([[:digit:]]+\\):\\([[:digit:]]+\\): 
\\([[:alpha:]]+\\): \\(.+\\)$"
-                                nil t)
-                         for lnum = (string-to-number (match-string 1))
-                         for lcol = (string-to-number (match-string 2))
-                         for type = (let ((severity (match-string 3)))
-                                      (cond
-                                       ((string= severity "error") :error)
-                                       ((string= severity "warning") :warning)
-                                       ((string= severity "info") :note)
-                                       (t :note)))
-                         for msg = (match-string 4)
-                         for (beg . end) = (flymake-diag-region source lnum 
lcol)
-                         collect (flymake-make-diagnostic source beg end type 
msg)
-                         into diags
-                         finally (funcall report-fn diags)))
-                    (flymake-log :warning "Canceling obsolete check %s"
-                                 proc))
-                (kill-buffer (process-buffer proc))))))))
+          (when (memq (process-status proc) '(exit signal))
+            (unwind-protect
+                (if (with-current-buffer source (eq proc 
flymake-kondor--flymake-proc))
+                    (with-current-buffer (process-buffer proc)
+                      (goto-char (point-min))
+                      (cl-loop
+                       while (search-forward-regexp
+                              "^.+:\\([[:digit:]]+\\):\\([[:digit:]]+\\): 
\\([[:alpha:]]+\\): \\(.+\\)$"
+                              nil t)
+                       for lnum = (string-to-number (match-string 1))
+                       for lcol = (string-to-number (match-string 2))
+                       for type = (let ((severity (match-string 3)))
+                                    (cond
+                                     ((string= severity "error") :error)
+                                     ((string= severity "warning") :warning)
+                                     ((string= severity "info") :note)
+                                     (t :note)))
+                       for msg = (match-string 4)
+                       for (beg . end) = (flymake-diag-region source lnum lcol)
+                       collect (flymake-make-diagnostic source beg end type 
msg)
+                       into diags
+                       finally (funcall report-fn diags)))
+                  (flymake-log :warning "Canceling obsolete check %s"
+                               proc))
+              (kill-buffer (process-buffer proc)))))))
       (process-send-region flymake-kondor--flymake-proc (point-min) 
(point-max))
       (process-send-eof flymake-kondor--flymake-proc))))