one

function! Hoge()
    two
endfunctioncall Hoge()function!s:fuga()
    three
endfunctioncalls:fuga()function!s:piyo()calls:fuga()endfunctioncalls:piyo()lets:dict= {}
function!s:dict.aaa()
    four
endfunctioncalls:dict.aaa()

/path/to/error.vim の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません: one
function Hoge の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     two
function <SNR>253_fuga の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     three
function <SNR>253_piyo[1]..<SNR>253_fuga の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     three
function 250 の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     four

/path/to/error.vim の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません: one

function Hoge の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     two

function <SNR>253_fuga の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     three

function <SNR>253_piyo[1]..<SNR>253_fuga の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     three

function 250 の処理中にエラーが検出されました:
行    1:
E492: エディタのコマンドではありません:     four

function!s:qf_messages()let str_messages =''redir=> str_messages
  silent!messagesredir END

  let qflist =s:parse_error_messages(str_messages)call setqflist(qflist,'r')cwindowendfunctionfunction!s:parse_error_messages(messages) abort
    " 戻り値。setqflistの引数に使う配列let qflist = []
    " qflistの要素になる辞書let qf_info = {}
    " qflistの要素となる辞書の配列。エラー内容がスタックトレースのときに使用let qf_info_list = []
    " 読み込んだファイルの内容をキャッシュしておくための辞書letfiles= {}

    ifv:lang=~# 'ja_JP'let regex_error_detect ='^.\+\ze の処理中にエラーが検出されました:$'let regex_line ='^行\s\+\zs\d\+\ze:$'let regex_last_set ='最後にセットしたスクリプト: \zs\f\+'elselet regex_error_detect ='^Error detected while processing \zs.\+\ze:$'let regex_line ='^line\s\+\zs\d\+\e:$'let regex_last_set ='Last set from \zs\f\+'endiffor line in split(a:messages,"\n")if line =~# regex_error_detect
            " ... の処理中にエラーが検出されました:'let matched = matchstr(line, regex_error_detect)if matched =~# '^function'                " function <SNR>253_fuga の処理中にエラーが検出されました:                " function <SNR>253_piyo[1]..<SNR>253_fuga の処理中にエラーが検出されました:let matched = matchstr(matched,'^function \zs\S*')let stacks = reverse(split(matched,'\.\.'))for stack in stacks
                    let [func_name, offset] =(stack =~# '\S\+\[\d')
                    \ ? matchlist(stack,'\(\S\+\)\[\(\d\+\)\]')[1:2]
                    \ : [stack,0]

                    " 辞書関数の数字は{}で囲むlet func_name = func_name =~# '^\d\+$' ? '{' . func_name . '}' : func_name

                    redir=> verbose_func
                    execute 'silent verbose function ' . func_name
                    redir END

                    letfilename= matchstr(verbose_func, regex_last_set)letfilename= expand(filename)if!has_key(files,filename)letfiles[filename] = readfile(filename)endifif func_name =~# '{\d\+}'let func_lines = split(verbose_func,"\n")
                        unlet func_lines[1]
                        let max_line = len(func_lines)let func_lines[0] ='^\s*fu\%[nction]!\=\s\+\zs\S\+\.\S\+'foriin range(1, max_line -2)let func_lines[i] ='^\s*' . matchstr(func_lines[i],'^\d\+\s*\zs.*')endforlet func_lines[max_line -1] ='^\s*endf[unction]'let lnum =0while1let lnum =match(files[filename], func_lines[0], lnum)if lnum <0throw'No dictionary function'endiflet find_dic_func =1foriin range(1, max_line -1)iffiles[filename][lnum +i] !~# func_lines[i]
                                    let lnum = lnum +ilet find_dic_func =0breakendifendforif find_dic_func
                                breakendifendwhilelet func_name = matchstr(files[filename][lnum], func_lines[0])let lnum +=1+ offset
                    elselet func_name  = substitute(func_name,'<SNR>\d\+_','s:','')let lnum =match(files[filename],'^\s*fu\%[nction]!\=\s\+' . func_name)+1+ offset
                    endifcall add(qf_info_list, {
                    \   'filename': filename,
                    \   'lnum': lnum,
                    \   'text': func_name,
                    \})endforelse                " <filename> の処理中にエラーが検出されました:letfilename= expand(matchstr(line, regex_error_detect))let qf_info.filename= expand(filename)endifelseif line =~# regex_line
            " 行    1:let lnum = matchstr(line, regex_line)if len(qf_info_list)>0let qf_info_list[0]['lnum'] += lnum
            elselet qf_info.lnum = lnum
            endifelseif line =~# '^E'            " E492: エディタのコマンドではありません: onelet [nr, text] = matchlist(line,'^E\(\d\+\): \(.\+\)')[1:2]
            if len(qf_info_list)>0if len(qf_info_list)==1let qf_info_list[0]['nr'] = nr
                    let qf_info_list[0]['text'] ='in ' . qf_info_list[0]['text'] . ' | ' . text
                elseleti=0for val in qf_info_list
                        let val['nr'] = nr
                        let val['text'] ='#' . i . ' in ' . val['text'] . (i==0 ? (' | ' . text) : '')leti+=1endforendiflet qflist += qf_info_list
            elselet qf_info.nr = nr
                let qf_info.text = text
                call add(qflist, qf_info)endiflet qf_info = {}
            let qf_info_list = []
        endifendforreturn qflist
endfunction

command!-nargs=0 QfMessages calls:qf_messages()

error.vim|1 error 492| エディタのコマンドではありません: one
error.vim|4 error 492| in Hoge | エディタのコマンドではありません:     two
error.vim|9 error 492| in s:fuga | エディタのコマンドではありません:     three
error.vim|9 error 492| #0 in s:fuga | エディタのコマンドではありません:     three
error.vim|14 error 492| #1 in s:piyo
error.vim|21 error 492| in s:dict.aaa() | エディタのコマンドではありません:     four

Error detected while processing /Users/tmsanrinsha/.cache/vim/junkfile/2016/10/2016-10-29-200145.vim:
line    1:
E492: Not an editor command: one
Error detected while processing function Hoge:
line    1:
E492: Not an editor command:     two
Error detected while processing function <SNR>253_fuga:
line    1:
E492: Not an editor command:     three
Error detected while processing function <SNR>253_piyo[1]..<SNR>253_fuga:
line    1:
E492: Not an editor command:     three
Error detected while processing function 250:
line    1:
E492: Not an editor command:     four

   function Hoge()
        最後にセットしたスクリプト: /path/to/error.vim
1      two
   endfunction