[nongnu] elpa/flymake-guile 56e161d368 05/11: improve diagnostic column position

[ELPA Syncer]

branch: elpa/flymake-guile
commit 56e161d368803b2aa7628e21c4bfd1b1ba1603a7
Author: Distopico <distopico@riseup.net>
Commit: Distopico <distopico@riseup.net>

    improve diagnostic column position
---
 flymake-guile.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/flymake-guile.el b/flymake-guile.el
index 4bd6c698ed..fa1770459f 100644
--- a/flymake-guile.el
+++ b/flymake-guile.el
@@ -65,6 +65,8 @@ The list of supported warning types/levels can be found by 
running
 
 (defvar flymake-guile--diag-lnum-rx 
":\\([[:digit:]]+\\):\\([[:digit:]]+\\):\s")
 
+(defvar flymake-guile--fix-col-rule-rx "unbound variable")
+
 (defun flymake-guile--project-path ()
   "Determine project paths from geiser configuration."
   (when-let ((geiser-repl-add-project-paths)
@@ -124,7 +126,14 @@ Also verify if the `STACK-FILE' and the source file are te 
same."
       (setq lnum "0")
       (setq cnum "0"))
     (cons (cons (string-to-number lnum)
-               (string-to-number cnum))
+               (let ((col (string-to-number cnum)))
+                 (if (and (> col 0)
+                          ;; The column in this type of errors are not
+                          ;; consistent And will mark all the lines in a
+                          ;; multi-line definition.
+                          (string-match-p flymake-guile--fix-col-rule-rx text))
+                     (+ col 1)
+                   (- col 1))))
          text)))
 
 (flymake-quickdef-backend flymake-guile-backend