Opensource.Platon.SK CVS: vimconfig/vim/plugin/matchit.vim - diff

   Up to  [Platon] / vimconfig / vim / plugin
Diff for vimconfig/vim/plugin/matchit.vim between version 1.2 and 1.3


version 1.2, 2003/11/03 16:15:40
version 1.3, 2005/03/09 20:33:05



Line 1 




Line 1 




 "  matchit.vim: (global plugin) Extended "%" matching
 "  matchit.vim: (global plugin) Extended "%" matching


 "  Last Change: June 12, 2002
 "  Last Change: Sat May 15 11:00 AM 2004 EDT


 "  Maintainer:  Benji Fisher PhD   <benji@member.AMS.org>
 "  Maintainer:  Benji Fisher PhD   <benji@member.AMS.org>


 "  Version:     1.7, for Vim 6.1
 "  Version:     1.9, for Vim 6.3


 
 "  URL:         http://www.vim.org/script.php?script_id=39


 
 


 " Documentation:
 " Documentation:


 "  The documentation is in a separate file, matchit.txt .
 "  The documentation is in a separate file, matchit.txt .




Line 14 




Line 15 




 "  Support for many languages by Johannes Zellner
 "  Support for many languages by Johannes Zellner


 "  Suggestions for improvement, bug reports, and support for additional
 "  Suggestions for improvement, bug reports, and support for additional


 "  languages by Jordi-Albert Batalla, Neil Bird, Servatius Brandt, Mark
 "  languages by Jordi-Albert Batalla, Neil Bird, Servatius Brandt, Mark


 "  Collett, Stephen Wall, and Johannes Zellner.
 "  Collett, Stephen Wall, Dany St-Amant, and Johannes Zellner.


 
 


 " Debugging:
 " Debugging:


 "  If you'd like to try the built-in debugging commands...
 "  If you'd like to try the built-in debugging commands...




Line 63  vmap ]% <Esc>]%m'gv``




Line 64  vmap ]% <Esc>]%m'gv``




 onoremap <silent> [% v:<C-U>call <SID>MultiMatch("bW", "o") <CR>
 onoremap <silent> [% v:<C-U>call <SID>MultiMatch("bW", "o") <CR>


 onoremap <silent> ]% v:<C-U>call <SID>MultiMatch("W",  "o") <CR>
 onoremap <silent> ]% v:<C-U>call <SID>MultiMatch("W",  "o") <CR>


 
 


 
 " text object:


 
 vmap a% <Esc>[%v]%


 
 


 " Auto-complete mappings:  (not yet "ready for prime time")
 " Auto-complete mappings:  (not yet "ready for prime time")


 " TODO Read :help write-plugin for the "right" way to let the user
 " TODO Read :help write-plugin for the "right" way to let the user


 " specify a key binding.
 " specify a key binding.




Line 248  function! s:Match_wrapper(word, forward,




Line 252  function! s:Match_wrapper(word, forward,




 
 


   " Fifth step:  actually start moving the cursor and call searchpair().
   " Fifth step:  actually start moving the cursor and call searchpair().


   " Later, :execute restore_cursor to get to the original screen.
   " Later, :execute restore_cursor to get to the original screen.


   let restore_cursor = line(".") . "G" . virtcol(".") . "|"
   let restore_cursor = virtcol(".") . "|"


 
   normal! g0


 
   let restore_cursor = line(".") . "G" .  virtcol(".") . "|zs" . restore_cursor


   normal! H
   normal! H


   let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor
   let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor


   execute restore_cursor
   execute restore_cursor




Line 262  function! s:Match_wrapper(word, forward,




Line 268  function! s:Match_wrapper(word, forward,




     execute "if " . skip . "| let skip = '0' | endif"
     execute "if " . skip . "| let skip = '0' | endif"


   endif
   endif


   let sp_return = searchpair(ini, mid, fin, flag, skip)
   let sp_return = searchpair(ini, mid, fin, flag, skip)


   let final_position = line(".") . "normal!" . virtcol(".") . "|"
   let final_position = "call cursor(" . line(".") . "," . col(".") . ")"


   " Restore cursor position and original screen.
   " Restore cursor position and original screen.


   execute restore_cursor
   execute restore_cursor


   normal! m'
   normal! m'




Line 285  fun! s:CleanUp(options, mode, startline,




Line 291  fun! s:CleanUp(options, mode, startline,




     " (for example, d%).
     " (for example, d%).


     " This is only a problem if we end up moving in the forward direction.
     " This is only a problem if we end up moving in the forward direction.


   elseif (a:startline < line(".")) ||
   elseif (a:startline < line(".")) ||


         \ (a:startline == line(".") && a:startcol < col("."))
         \ (a:startline == line(".") && a:startcol < col("."))


     if a:0
     if a:0


       " Check whether the match is a single character.  If not, move to the
       " Check whether the match is a single character.  If not, move to the


       " end of the match.
       " end of the match.




Line 294  fun! s:CleanUp(options, mode, startline,




Line 300  fun! s:CleanUp(options, mode, startline,




       let regexp = s:Wholematch(matchline, a:1, currcol-1)
       let regexp = s:Wholematch(matchline, a:1, currcol-1)


       let endcol = matchend(matchline, regexp)
       let endcol = matchend(matchline, regexp)


       if endcol > currcol  " This is NOT off by one!
       if endcol > currcol  " This is NOT off by one!


         execute "normal!" . (endcol - currcol) . "l"
         execute "normal!" . (endcol - currcol) . "l"


       endif
       endif


     endif " a:0
     endif " a:0


   endif " a:mode != "o" && etc.
   endif " a:mode != "o" && etc.




Line 669  fun! s:MultiMatch(spflag, mode)




Line 675  fun! s:MultiMatch(spflag, mode)




   " - TODO:  A lot of this is copied from s:Match_wrapper().
   " - TODO:  A lot of this is copied from s:Match_wrapper().


   " - maybe even more functionality should be split off
   " - maybe even more functionality should be split off


   " - into separate functions!
   " - into separate functions!


   let open =  substitute(s:pat . default, ':[^,]*,', '\\),\\(', 'g')
   let cdefault = (s:pat =~ '[^,]$' ? "," : "") . default


 
   let open =  substitute(s:pat . cdefault, ':[^,]*,', '\\),\\(', 'g')


   let open =  '\(' . substitute(open, ':[^,]*$', '\\)', '')
   let open =  '\(' . substitute(open, ':[^,]*$', '\\)', '')


   let close = substitute(s:pat . default, ',[^,]*:', '\\),\\(', 'g')
   let close = substitute(s:pat . cdefault, ',[^,]*:', '\\),\\(', 'g')


   let close = substitute(close, '[^,]*:', '\\(', '') . '\)'
   let close = substitute(close, '[^,]*:', '\\(', '') . '\)'


   if exists("b:match_skip")
   if exists("b:match_skip")


     let skip = b:match_skip
     let skip = b:match_skip




Line 681  fun! s:MultiMatch(spflag, mode)




Line 688  fun! s:MultiMatch(spflag, mode)




     let skip = 's:comment\|string'
     let skip = 's:comment\|string'


   endif
   endif


   let skip = s:ParseSkip(skip)
   let skip = s:ParseSkip(skip)


   let restore_cursor = line(".") . "G" . virtcol(".") . "|"
   " let restore_cursor = line(".") . "G" . virtcol(".") . "|"


 
   " normal! H


 
   " let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor


 
   let restore_cursor = virtcol(".") . "|"


 
   normal! g0


 
   let restore_cursor = line(".") . "G" .  virtcol(".") . "|zs" . restore_cursor


   normal! H
   normal! H


   let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor
   let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor


   execute restore_cursor
   execute restore_cursor




Line 789  fun! s:ParseSkip(str)




Line 801  fun! s:ParseSkip(str)




   return skip
   return skip


 endfun
 endfun


 
 


 aug Matchit
 


   let s:notend = '\%(\<end\s\+\)\@<!'
 


   au!
 


   " ASP:  Active Server Pages (with Visual Basic Script)
 


   " thanks to Gontran BAERTS
 


   au FileType aspvbs if !exists("b:match_words") |
 


     \ do Matchit FileType html |
 


   \ 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\>,' .
 


   \ b:match_words
 


   \ | endif
 


   " Csh:  thanks to Johannes Zellner
 


   " - Both foreach and end must appear alone on separate lines.
 


   " - The words else and endif must appear at the beginning of input lines;
 


   "   the if must appear alone on its input line or after an else.
 


   " - Each case label and the default label must appear at the start of a
 


   "   line.
 


   " - while and end must appear alone on their input lines.
 


   au FileType csh,tcsh  if !exists("b:match_words") |
 


     \ let b:match_words =
 


       \ '^\s*\<if\>.*(.*).*\<then\>:'.
 


       \   '^\s*\<else\>\s\+\<if\>.*(.*).*\<then\>:^\s*\<else\>:'.
 


       \   '^\s*\<endif\>,'.
 


       \ '\%(^\s*\<foreach\>\s\+\S\+\|^s*\<while\>\).*(.*):'.
 


       \   '\<break\>:\<continue\>:^\s*\<end\>,'.
 


       \ '^\s*\<switch\>.*(.*):^\s*\<case\>\s\+:^\s*\<default\>:^\s*\<endsw\>'
 


       \ | endif
 


   " DTD:  thanks to Johannes Zellner
 


   " - match <!--, --> style comments.
 


   " - match <! with >
 


   " - TODO:  why does '--:--,'. not work ?
 


   au! FileType dtd if !exists("b:match_words") |
 


     \ let b:match_words =
 


     \ '<!--:-->,'.
 


     \ '<!:>'
 


     \ | endif
 


   " Entity:  see XML.
 


   " Essbase:
 


   au BufNewFile,BufRead *.csc if !exists("b:match_words") |
 


     \ let b:match_words=
 


   \ '\<fix\>:\<endfix\>,' .
 


   \ '\<if\>:\<else\%(if\)\=\>:\<endif\>,' .
 


   \ '\<!loopondimensions\>\|\<!looponselected\>:\<!endloop\>'
 


   \ | endif
 


   " HTML:  thanks to Johannes Zellner.
 


     au FileType html,jsp,php if !exists("b:match_words") |
 


       \ let b:match_ignorecase = 1 |
 


       \ let b:match_skip = 's:Comment' |
 


       \ let b:match_words = '<:>,' .
 


       \ '<\@<=[ou]l[^>]*\%(>\|$\):<\@<=li>:<\@<=/[ou]l>,' .
 


       \ '<\@<=\([^/][^ \t>]*\)[^>]*\%(>\|$\):<\@<=/\1>'
 


       \ | endif
 


   " Pascal:
 


   au FileType pascal if !exists("b:match_words") |
 


     \ let b:match_words='\<begin\>:\<end\>'
 


     \ | endif
 


   " SGML:  see XML
 


   " Shell:  thanks to Johannes Zellner
 


   let s:sol = '\%(;\s*\|^\s*\)\@<='  " start of line
 


   au FileType sh,config if !exists("b:match_words") |
 


     \ let b:match_words =
 


       \ s:sol.'if\>:' . s:sol.'elif\>:' . s:sol.'else\>:' . s:sol. 'fi\>,' .
 


       \ s:sol.'\%(for\|while\)\>:' . s:sol. 'done\>,' .
 


       \ s:sol.'case\>:' . s:sol. 'esac\>'
 


       \ | endif
 


   " RPM Spec:  thanks to Max Ischenko
 


   au FileType spec if !exists("b:match_words") |
 


     \ let b:match_ignorecase = 0 | let b:match_words =
 


     \ '^Name:^%description:^%clean:^%setup:^%build:^%install:^%files:' .
 


     \ '^%package:^%preun:^%postun:^%changelog'
 


     \ | endif
 


   " Tcsh:  see Csh
 


   " XML:  thanks to Johannes Zellner and Akbar Ibrahim
 


   " - case sensitive
 


   " - don't match empty tags <fred/>
 


   " - match <!--, --> style comments (but not --, --)
 


   " - match <!, > inlined dtd's. This is not perfect, as it
 


   "   gets confused for example by
 


   "       <!ENTITY gt ">">
 


   au! FileType xml,sgml,entity,xslt,svg,xhtml,xsl,xsd
 


     \ if !exists("b:match_words") |
 


     \ let b:match_ignorecase=0 | let b:match_words =
 


     \ '<:>,' .
 


     \ '<\@<=!\[CDATA\[:]]>,'.
 


     \ '<\@<=!--:-->,'.
 


     \ '<\@<=?\k\+:?>,'.
 


     \ '<\@<=\([^ \t>/]\+\)\%(\s\+[^>]*\%([^/]>\|$\)\|>\|$\):<\@<=/\1>,'.
 


     \ '<\@<=\%([^ \t>/]\+\)\%(\s\+[^/>]*\|$\):/>'
 


     \ | endif
 


 
 


 aug END
 


 
 


 let &cpo = s:save_cpo
 let &cpo = s:save_cpo


 
 


 " vim:sts=2:sw=2:ff=unix:
 " vim:sts=2:sw=2:









Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3


















Platon Group <platon@platon.org> http://platon.org/
  Up to  [Platon] / vimconfig / vim / plugin
-version 1.2, 2003/11/03 16:15:40
+version 1.3, 2005/03/09 20:33:05
 Line 1
 Line 1
 Line 1
  "  matchit.vim: (global plugin) Extended "%" matching
- "  Last Change: June 12, 2002
+ "  Last Change: Sat May 15 11:00 AM 2004 EDT
  "  Maintainer:  Benji Fisher PhD   <benji@member.AMS.org>
- "  Version:     1.7, for Vim 6.1
+ "  Version:     1.9, for Vim 6.3
+ "  URL:         http://www.vim.org/script.php?script_id=39
  " Documentation:
  "  The documentation is in a separate file, matchit.txt .
-Line 14
+Line 15
 Line 14
 Line 15
  "  Support for many languages by Johannes Zellner
  "  Suggestions for improvement, bug reports, and support for additional
  "  languages by Jordi-Albert Batalla, Neil Bird, Servatius Brandt, Mark
- "  Collett, Stephen Wall, and Johannes Zellner.
+ "  Collett, Stephen Wall, Dany St-Amant, and Johannes Zellner.
  " Debugging:
  "  If you'd like to try the built-in debugging commands...
-Line 63  vmap ]% <Esc>]%m'gv``
+Line 64  vmap ]% <Esc>]%m'gv``
 Line 63  vmap ]% <Esc>]%m'gv``
 Line 64  vmap ]% <Esc>]%m'gv``
  onoremap <silent> [% v:<C-U>call <SID>MultiMatch("bW", "o") <CR>
  onoremap <silent> ]% v:<C-U>call <SID>MultiMatch("W",  "o") <CR>
+ " text object:
+ vmap a% <Esc>[%v]%
  " Auto-complete mappings:  (not yet "ready for prime time")
  " TODO Read :help write-plugin for the "right" way to let the user
  " specify a key binding.
-Line 248  function! s:Match_wrapper(word, forward,
+Line 252  function! s:Match_wrapper(word, forward,
 Line 248  function! s:Match_wrapper(word, forward,
 Line 252  function! s:Match_wrapper(word, forward,
    " Fifth step:  actually start moving the cursor and call searchpair().
    " Later, :execute restore_cursor to get to the original screen.
-   let restore_cursor = line(".") . "G" . virtcol(".") . "|"
+   let restore_cursor = virtcol(".") . "|"
+   normal! g0
+   let restore_cursor = line(".") . "G" .  virtcol(".") . "|zs" . restore_cursor
    normal! H
    let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor
    execute restore_cursor
-Line 262  function! s:Match_wrapper(word, forward,
+Line 268  function! s:Match_wrapper(word, forward,
 Line 262  function! s:Match_wrapper(word, forward,
 Line 268  function! s:Match_wrapper(word, forward,
      execute "if " . skip . "| let skip = '0' | endif"
    endif
    let sp_return = searchpair(ini, mid, fin, flag, skip)
-   let final_position = line(".") . "normal!" . virtcol(".") . "|"
+   let final_position = "call cursor(" . line(".") . "," . col(".") . ")"
    " Restore cursor position and original screen.
    execute restore_cursor
    normal! m'
-Line 285  fun! s:CleanUp(options, mode, startline,
+Line 291  fun! s:CleanUp(options, mode, startline,
 Line 285  fun! s:CleanUp(options, mode, startline,
 Line 291  fun! s:CleanUp(options, mode, startline,
      " (for example, d%).
      " This is only a problem if we end up moving in the forward direction.
    elseif (a:startline < line(".")) ||
          \ (a:startline == line(".") && a:startcol < col("."))
      if a:0
        " Check whether the match is a single character.  If not, move to the
        " end of the match.
-Line 294  fun! s:CleanUp(options, mode, startline,
+Line 300  fun! s:CleanUp(options, mode, startline,
 Line 294  fun! s:CleanUp(options, mode, startline,
 Line 300  fun! s:CleanUp(options, mode, startline,
        let regexp = s:Wholematch(matchline, a:1, currcol-1)
        let endcol = matchend(matchline, regexp)
        if endcol > currcol  " This is NOT off by one!
          execute "normal!" . (endcol - currcol) . "l"
        endif
      endif " a:0
    endif " a:mode != "o" && etc.
-Line 669  fun! s:MultiMatch(spflag, mode)
+Line 675  fun! s:MultiMatch(spflag, mode)
 Line 669  fun! s:MultiMatch(spflag, mode)
 Line 675  fun! s:MultiMatch(spflag, mode)
    " - TODO:  A lot of this is copied from s:Match_wrapper().
    " - maybe even more functionality should be split off
    " - into separate functions!
-   let open =  substitute(s:pat . default, ':[^,]*,', '\\),\\(', 'g')
+   let cdefault = (s:pat =~ '[^,]$' ? "," : "") . default
+   let open =  substitute(s:pat . cdefault, ':[^,]*,', '\\),\\(', 'g')
    let open =  '\(' . substitute(open, ':[^,]*$', '\\)', '')
-   let close = substitute(s:pat . default, ',[^,]*:', '\\),\\(', 'g')
+   let close = substitute(s:pat . cdefault, ',[^,]*:', '\\),\\(', 'g')
    let close = substitute(close, '[^,]*:', '\\(', '') . '\)'
    if exists("b:match_skip")
      let skip = b:match_skip
-Line 681  fun! s:MultiMatch(spflag, mode)
+Line 688  fun! s:MultiMatch(spflag, mode)
 Line 681  fun! s:MultiMatch(spflag, mode)
 Line 688  fun! s:MultiMatch(spflag, mode)
      let skip = 's:comment\|string'
    endif
    let skip = s:ParseSkip(skip)
-   let restore_cursor = line(".") . "G" . virtcol(".") . "|"
+   " let restore_cursor = line(".") . "G" . virtcol(".") . "|"
+   " normal! H
+   " let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor
+   let restore_cursor = virtcol(".") . "|"
+   normal! g0
+   let restore_cursor = line(".") . "G" .  virtcol(".") . "|zs" . restore_cursor
    normal! H
    let restore_cursor = "normal!" . line(".") . "Gzt" . restore_cursor
    execute restore_cursor
-Line 789  fun! s:ParseSkip(str)
+Line 801  fun! s:ParseSkip(str)
 Line 789  fun! s:ParseSkip(str)
 Line 801  fun! s:ParseSkip(str)
    return skip
  endfun
- aug Matchit
-   let s:notend = '\%(\<end\s\+\)\@<!'
-   au!
-   " ASP:  Active Server Pages (with Visual Basic Script)
-   " thanks to Gontran BAERTS
-   au FileType aspvbs if !exists("b:match_words") |
-     \ do Matchit FileType html |
-   \ 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\>,' .
-   \ b:match_words
-   \ | endif
-   " Csh:  thanks to Johannes Zellner
-   " - Both foreach and end must appear alone on separate lines.
-   " - The words else and endif must appear at the beginning of input lines;
-   "   the if must appear alone on its input line or after an else.
-   " - Each case label and the default label must appear at the start of a
-   "   line.
-   " - while and end must appear alone on their input lines.
-   au FileType csh,tcsh  if !exists("b:match_words") |
-     \ let b:match_words =
-       \ '^\s*\<if\>.*(.*).*\<then\>:'.
-       \   '^\s*\<else\>\s\+\<if\>.*(.*).*\<then\>:^\s*\<else\>:'.
-       \   '^\s*\<endif\>,'.
-       \ '\%(^\s*\<foreach\>\s\+\S\+\|^s*\<while\>\).*(.*):'.
-       \   '\<break\>:\<continue\>:^\s*\<end\>,'.
-       \ '^\s*\<switch\>.*(.*):^\s*\<case\>\s\+:^\s*\<default\>:^\s*\<endsw\>'
-       \ | endif
-   " DTD:  thanks to Johannes Zellner
-   " - match <!--, --> style comments.
-   " - match <! with >
-   " - TODO:  why does '--:--,'. not work ?
-   au! FileType dtd if !exists("b:match_words") |
-     \ let b:match_words =
-     \ '<!--:-->,'.
-     \ '<!:>'
-     \ | endif
-   " Entity:  see XML.
-   " Essbase:
-   au BufNewFile,BufRead *.csc if !exists("b:match_words") |
-     \ let b:match_words=
-   \ '\<fix\>:\<endfix\>,' .
-   \ '\<if\>:\<else\%(if\)\=\>:\<endif\>,' .
-   \ '\<!loopondimensions\>\|\<!looponselected\>:\<!endloop\>'
-   \ | endif
-   " HTML:  thanks to Johannes Zellner.
-     au FileType html,jsp,php if !exists("b:match_words") |
-       \ let b:match_ignorecase = 1 |
-       \ let b:match_skip = 's:Comment' |
-       \ let b:match_words = '<:>,' .
-       \ '<\@<=[ou]l[^>]*\%(>\|$\):<\@<=li>:<\@<=/[ou]l>,' .
-       \ '<\@<=\([^/][^ \t>]*\)[^>]*\%(>\|$\):<\@<=/\1>'
-       \ | endif
-   " Pascal:
-   au FileType pascal if !exists("b:match_words") |
-     \ let b:match_words='\<begin\>:\<end\>'
-     \ | endif
-   " SGML:  see XML
-   " Shell:  thanks to Johannes Zellner
-   let s:sol = '\%(;\s*\|^\s*\)\@<='  " start of line
-   au FileType sh,config if !exists("b:match_words") |
-     \ let b:match_words =
-       \ s:sol.'if\>:' . s:sol.'elif\>:' . s:sol.'else\>:' . s:sol. 'fi\>,' .
-       \ s:sol.'\%(for\|while\)\>:' . s:sol. 'done\>,' .
-       \ s:sol.'case\>:' . s:sol. 'esac\>'
-       \ | endif
-   " RPM Spec:  thanks to Max Ischenko
-   au FileType spec if !exists("b:match_words") |
-     \ let b:match_ignorecase = 0 | let b:match_words =
-     \ '^Name:^%description:^%clean:^%setup:^%build:^%install:^%files:' .
-     \ '^%package:^%preun:^%postun:^%changelog'
-     \ | endif
-   " Tcsh:  see Csh
-   " XML:  thanks to Johannes Zellner and Akbar Ibrahim
-   " - case sensitive
-   " - don't match empty tags <fred/>
-   " - match <!--, --> style comments (but not --, --)
-   " - match <!, > inlined dtd's. This is not perfect, as it
-   "   gets confused for example by
-   "       <!ENTITY gt ">">
-   au! FileType xml,sgml,entity,xslt,svg,xhtml,xsl,xsd
-     \ if !exists("b:match_words") |
-     \ let b:match_ignorecase=0 | let b:match_words =
-     \ '<:>,' .
-     \ '<\@<=!\[CDATA\[:]]>,'.
-     \ '<\@<=!--:-->,'.
-     \ '<\@<=?\k\+:?>,'.
-     \ '<\@<=\([^ \t>/]\+\)\%(\s\+[^>]*\%([^/]>\|$\)\|>\|$\):<\@<=/\1>,'.
-     \ '<\@<=\%([^ \t>/]\+\)\%(\s\+[^/>]*\|$\):/>'
-     \ | endif
- aug END
  let &cpo = s:save_cpo
- " vim:sts=2:sw=2:ff=unix:
+ " vim:sts=2:sw=2:
 Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3
 Legend:


Removed from v.1.2
 


changed lines


 
Added in v.1.3
-Removed from v.1.2
+Added in v.1.3


Copyright © 2002-2006 Platon Group Site powered by Metafox CMS	Go to Top