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