37 howm-mode.vim (2-15) VimGrepSearch の削除

vim

以前 VimGrepSearch() 作成時に修正した GrepSearch() 呼び出し部分を再び修正。以前の形に近いものに戻った。これでVimGrepSearch() への呼び出しがなくなったので、VimGrepSearch() を削除する。

" TODO: 引数を考え直した方がいいかも
"
" searchWordType: searchWord の種類
"  0: 固定文字列
"  1: 正規表現 ( grep )
"  2: 正規表現 ( Vim )
function! s:FullTextSearch(searchWord, searchWordType)
  if a:searchWord == '' | return 0 | endif
  call s:OpenSearchWindow(a:searchWord, a:searchWordType)
  let path = s:HowmExpand(a:searchWord)
  if !filereadable(path) || isdirectory(path)
    let path = ''
  endif
  
  if s:ParseSearchResult(s:GrepSearch(a:searchWord, a:searchWordType)) > 0 || path != ''
    call s:SortByMtime()
    " 検索語にマッチするファイルがある場合
    " TODO:汚いなぁ…
    if path != ''
      let i = b:searchResultNum
      while i >= 1
        let b:file{i + 1} = b:file{i}
        let b:line{i + 1} = b:line{i}
        let b:content{i + 1} = b:content{i}
        let i = i - 1
      endwhile
      let b:file1 = path
      let b:line1 = 0
      let b:content1 = ""
      let b:searchResultNum = b:searchResultNum + 1
    endif
    call s:FormatSearchResult()
    call cursor(1, 1)
    let retval = 1
  else
    redraw!
    echo s:prefix_howm.s:msg_ftnomatch
    call s:SafeClose()
    let retval = 0
  endif
  return retval
endfunction