Tweak tags filter

This commit is contained in:
Kien N 2012-05-02 02:59:37 +07:00
parent f8f8f56fae
commit dc12e57ded

View File

@ -40,20 +40,20 @@ fu! s:findcount(str)
endf endf
fu! s:filter(tags) fu! s:filter(tags)
let [nr, alltags] = [0, a:tags] let nr = 0
wh 0 < 1 wh 0 < 1
if empty(alltags) | brea | en if a:tags == [] | brea | en
if alltags[nr] =~ '^!' && alltags[nr] !~ '^!_TAG_' if a:tags[nr] =~ '^!' && a:tags[nr] !~ '^!_TAG_'
let nr += 1 let nr += 1
con con
en en
if alltags[nr] =~ '^!_TAG_' && len(alltags) > nr if a:tags[nr] =~ '^!_TAG_' && len(a:tags) > nr
cal remove(alltags, nr) cal remove(a:tags, nr)
el el
brea brea
en en
endw endw
retu alltags retu a:tags
endf endf
fu! s:syntax() fu! s:syntax()