| " Vim filetype plugin file |
| " Language: aspvbs |
| " Maintainer: Dan Sharp <dwsharp at hotmail dot com> |
| " Last Changed: 2003 Sep 29 |
| " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin |
| |
| if exists("b:did_ftplugin") | finish | endif |
| |
| " Make sure the continuation lines below do not cause problems in |
| " compatibility mode. |
| let s:save_cpo = &cpo |
| set cpo-=C |
| |
| " Define some defaults in case the included ftplugins don't set them. |
| let s:undo_ftplugin = "" |
| let s:browsefilter = "HTML Files (*.html, *.htm)\t*.htm*\n" . |
| \ "All Files (*.*)\t*.*\n" |
| let s:match_words = "" |
| |
| runtime! ftplugin/html.vim ftplugin/html_*.vim ftplugin/html/*.vim |
| let b:did_ftplugin = 1 |
| |
| " Override our defaults if these were set by an included ftplugin. |
| if exists("b:undo_ftplugin") |
| let s:undo_ftplugin = b:undo_ftplugin |
| endif |
| if exists("b:browsefilter") |
| let s:browsefilter = b:browsefilter |
| endif |
| if exists("b:match_words") |
| let s:match_words = b:match_words |
| endif |
| |
| " ASP: Active Server Pages (with Visual Basic Script) |
| " thanks to Gontran BAERTS |
| if exists("loaded_matchit") |
| let s:notend = '\%(\<end\s\+\)\@<!' |
| let b:match_words = |
| \ s:notend . '\<If\>:^\s\+\<Else\>:\<ElseIf\>:\<end\s\+\<if\>,' . |
| \ s:notend . '\<Select\s\+\<Case\>:\<Case\>:\<Case\s\+\<Else\>:\<End\s\+\<Select\>,' . |
| \ '^\s*\<Sub\>:\<End\s\+\<Sub\>,' . |
| \ '^\s*\<Function\>:\<End\s\+\<Function\>,' . |
| \ '\<Class\>:\<End\s\+\<Class\>,' . |
| \ '^\s*\<Do\>:\<Loop\>,' . |
| \ '^\s*\<For\>:\<Next\>,' . |
| \ '\<While\>:\<Wend\>,' . |
| \ s:match_words |
| endif |
| |
| " Change the :browse e filter to primarily show ASP-related files. |
| if has("gui_win32") |
| let b:browsefilter="ASP Files (*.asp)\t*.asp\n" . s:browsefilter |
| endif |
| |
| let b:undo_ftplugin = "unlet! b:match_words b:browsefilter | " . s:undo_ftplugin |
| |
| " Restore the saved compatibility options. |
| let &cpo = s:save_cpo |