检查VIM语法区域是否存在并删除

Question

背景：

• perl文件的语法突出显示有时对于大文件（1k+ lines）的有时非常慢。。。

• 我使用：

  进行了介绍

:syntime on
"*** Do some slow actions ***
:syntime report

• 有许多慢慢执行的区域，例如：perlstatementproc

• i 通过删除一些缓慢执行的语法区域（还有更多）：

  ，可以显着提高性能：

:syntax clear perlStatementProc

• 现在，我想在可能没有定义的特定区域的其他机器上使用这些改进，并在其他机器上进行这些改进。

---

我看到此错误打开VIM时：

E28: No such highlight group name: perlStatementProc

如何检查语法区域名称PerlstatementProc是否存在？

Answer 1

我发现了有关hlexists的信息，并在我的vimrc中实现了此解决方案：

" Remove some syntax highlighting from large perl files.
function! RemovePerlSyntax()
    if line('
) > 1000
        let perl_syntaxes = [
             \ "perlStatementProc",
             \ "perlMatch",
             \ "perlStatementPword",
             \ "perlQR",
             \ "perlQW",
             \ "perlQQ",
             \ "perlQ",
             \ "perlStatementIndirObjWrap",
             \ "perlVarPlain",
             \ "perlVarPlain",
             \ "perlOperator",
             \ "perlStatementFiledesc",
             \ "perlStatementScalar",
             \ "perlStatementInclude",
             \ "perlStatementNumeric",
             \ "perlStatementSocket",
             \ "perlFloat",
             \ "perlFormat",
             \ "perlStatementMisc",
             \ "perlStatementFiles",
             \ "perlStatementList",
             \ "perlStatementIPC",
             \ "perlStatementNetwork",
             \ "perlStatementTime",
             \ "perlStatementIOfunc",
             \ "perlStatementFlow",
             \ "perlStatementControl",
             \ "perlHereDoc",
             \ "perlHereDocStart",
             \ "perlVarPlain2",
             \ "perlVarBlock",
             \ "perlVarBlock2",
             \ "perlDATA",
             \ "perlControl",
             \ "perlStatementHash",
             \ "perlStatementVector",
             \ "perlIndentedHereDoc",
             \ "perlLabel",
             \ "perlConditional",
             \ "perlRepeat",
             \ "perlNumber",
             \ "perlStatementRegexp",
        \ ]

        for perl_syntax in perl_syntaxes
            " NEW - Was missing this check before.
            if hlexists( perl_syntax )
                exec "syntax clear " . perl_syntax
            endif
        endfor

        let b:remove_perl_syntax = 1
    else
        let b:remove_perl_syntax = 0
    endif
endfunction
augroup remove_perl_syntax
   autocmd!
   autocmd BufNewFile,BufRead,BufReadPost,FileType perl call RemovePerlSyntax()
augroup END