""""""""""
" FIXME: This gets caught in an infinite loop when the directory
"        we're sitting in gets deleted
""""""""""
while (mydir != '/')
    let i = strridx(mydir, '/')

    if (i == 0)
        let i = 1
    endif

    let mydir = strpart(mydir, 0, i)
    if (filereadable(mydir . "/tags"))
        if (&tags != '')
            let &tags = &tags . "," . mydir . "/tags"
        else
            let &tags = mydir . "/tags"
        endif
    endif
endwhile