Mercurial > vim

comparison runtime/ftplugin/aspvbs.vim @ 11:4424b47a0797

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0003
author vimboss
date Wed, 30 Jun 2004 16:16:41 +0000
parents 3fc0f57ecb91
children 7bc41231fbc7
comparison
equal deleted inserted replaced
10:4e2284e71352 11:4424b47a0797
1 " Vim filetype plugin file 1 " Vim filetype plugin file
2 " Language: aspvbs 2 " Language: aspvbs
3 " Maintainer: Dan Sharp <dwsharp at hotmail dot com> 3 " Maintainer: Dan Sharp <dwsharp at hotmail dot com>
4 " Last Changed: 2003 Sep 29 4 " Last Changed: 2004 Jun 28
5 " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin 5 " URL: http://mywebpage.netscape.com/sharppeople/vim/ftplugin
6 6
7 if exists("b:did_ftplugin") | finish | endif 7 if exists("b:did_ftplugin") | finish | endif
8 8
9 " Make sure the continuation lines below do not cause problems in 9 " Make sure the continuation lines below do not cause problems in
33 33
34 " ASP: Active Server Pages (with Visual Basic Script) 34 " ASP: Active Server Pages (with Visual Basic Script)
35 " thanks to Gontran BAERTS 35 " thanks to Gontran BAERTS
36 if exists("loaded_matchit") 36 if exists("loaded_matchit")
37 let s:notend = '\%(\<end\s\+\)\@<!' 37 let s:notend = '\%(\<end\s\+\)\@<!'
38 let b:match_ignorecase = 1
38 let b:match_words = 39 let b:match_words =
39 \ s:notend . '\<If\>:^\s\+\<Else\>:\<ElseIf\>:\<end\s\+\<if\>,' . 40 \ s:notend . '\<if\>\%(.\{-}then\s\+\w\)\@!:\<elseif\>:^\s*\<else\>:\<end\s\+\<if\>,' .
40 \ s:notend . '\<Select\s\+\<Case\>:\<Case\>:\<Case\s\+\<Else\>:\<End\s\+\<Select\>,' . 41 \ s:notend . '\<select\s\+case\>:\<case\>:\<case\s\+else\>:\<end\s\+select\>,' .
41 \ '^\s*\<Sub\>:\<End\s\+\<Sub\>,' . 42 \ '^\s*\<sub\>:\<end\s\+sub\>,' .
42 \ '^\s*\<Function\>:\<End\s\+\<Function\>,' . 43 \ '^\s*\<function\>:\<end\s\+function\>,' .
43 \ '\<Class\>:\<End\s\+\<Class\>,' . 44 \ '\<class\>:\<end\s\+class\>,' .
44 \ '^\s*\<Do\>:\<Loop\>,' . 45 \ '^\s*\<do\>:\<loop\>,' .
45 \ '^\s*\<For\>:\<Next\>,' . 46 \ '^\s*\<for\>:\<next\>,' .
46 \ '\<While\>:\<Wend\>,' . 47 \ '\<while\>:\<wend\>,' .
47 \ s:match_words 48 \ s:match_words
48 endif 49 endif
49 50
50 " Change the :browse e filter to primarily show ASP-related files. 51 " Change the :browse e filter to primarily show ASP-related files.
51 if has("gui_win32") 52 if has("gui_win32")
52 let b:browsefilter="ASP Files (*.asp)\t*.asp\n" . s:browsefilter 53 let b:browsefilter="ASP Files (*.asp)\t*.asp\n" . s:browsefilter
53 endif 54 endif
54 55
55 let b:undo_ftplugin = "unlet! b:match_words b:browsefilter | " . s:undo_ftplugin 56 let b:undo_ftplugin = "unlet! b:match_words b:match_ignorecase b:browsefilter | " . s:undo_ftplugin
56 57
57 " Restore the saved compatibility options. 58 " Restore the saved compatibility options.
58 let &cpo = s:save_cpo 59 let &cpo = s:save_cpo