34 howm-mode.vim (2-12) HighlightSearchWord の修正

http://d.hatena.ne.jp/eclipse-a/20080118/1200634971
で書いていた s:HighlightSearchWord() にミスがあったので修正。ミスの内容は searchWordType == 2 のときに pat にあやまって、searchWordType を代入していた

" b:searchWord にしたがって、ハイライトを設定する
" b:searchWord は OpenSearchWindow() で設定される
" OpenSearchWindow(), HighlightPreview() から呼ばれる。
" b:searchWordType を見て b:searchWord の解釈を変える
"  0: 固定文字列
"  1: 正規表現 ( grep ) 既定値
"  2: 正規表現 ( Vim )
function! s:HighlightSearchWord()
  let searchWord = exists('b:searchWord') ? b:searchWord : ''
  let searchWordType = exists('b:searchWordType') ? b:searchWordType : 1
  if searchWord == '' | return | endif
  if searchWordType == 0
    let pat = '\c\V'.escape(searchWord, '\')
  elseif searchWordType == 1
    let pat = '\c\v'.escape(searchWord, '=~@%')
  elseif searchWordType == 2
    let pat = searchWord
  else
    " TODO: エラーメッセージ
    return
  endif
  exe 'syntax match howmSearchWord display "'.pat.'"'
  hi howmSearchWord ctermfg=Red ctermbg=Grey guifg=Red guibg=bg
endfunction