handle multibyte string when linting text with redpen (#1416)

* handle multibyte string when linting text with redpen

* fix error when no string is provided, fix test's expect value

* remove ambiguious `==` operator

1 files changed, 24 insertions, 0 deletions

diff --git a/autoload/ale/handlers/redpen.vim b/autoload/ale/handlers/redpen.vim
index 2fb05684..c136789c 100644
--- a/autoload/ale/handlers/redpen.vim
+++ b/autoload/ale/handlers/redpen.vim
@@ -25,6 +25,30 @@ function! ale#handlers#redpen#HandleRedpenOutput(buffer, lines) abort
             let l:item.lnum = l:err.lineNum
             let l:item.col = l:err.sentenceStartColumnNum + 1
         endif
+
+        " Adjust column number for multibyte string
+        let l:line = getline(l:item.lnum)
+        if l:line is# ''
+            let l:line = l:err.sentence
+        endif
+        let l:line = split(l:line, '\zs')
+
+        if l:item.col >= 2
+            let l:col = 0
+            for l:strlen in map(l:line[0:(l:item.col - 2)], 'strlen(v:val)')
+                let l:col = l:col + l:strlen
+            endfor
+            let l:item.col = l:col + 1
+        endif
+
+        if has_key(l:item, 'end_col')
+            let l:col = 0
+            for l:strlen in map(l:line[0:(l:item.end_col - 1)], 'strlen(v:val)')
+                let l:col = l:col + l:strlen
+            endfor
+            let l:item.end_col = l:col
+        endif
+
         call add(l:output, l:item)
     endfor
     return l:output