>>959

function! DeleteBuffers()
    let curbufnr = bufnr('%')
    echo curbufnr
    while 1
        execute "bnext"
        if bufnr('%') != curbufnr
            execute "bd"
        else
            break
        endif
    endwhile
    execute "buffer " . curbufnr
endfunction

こんなんじゃだめかな?
Vim スクリプト書いたこと無いからワカンネ。