killasemacs.vim

function! KillAsEmacs()
  "if selection:
  "  Act as Ctrl+x
  if has("clipboard")
      let reg = '+'
  else
      let reg = '"'
  endif
  if col(".") == 1
    if get(g:, 'append_tick', -1) == b:changedtick
        let tmp = getreg(reg, 1)
        call setreg(reg, tmp . getline('.') . "\n")
        undojoin | call deletebufline(bufname(), line('.'))
    else
        call setreg(reg, getline('.') . "\n")
        call deletebufline(bufname(), line('.'))
    endif
  elseif col(".") == col("$")
    if get(g:, 'append_tick', -1) == b:changedtick
        let tmp = getreg(reg, 1)
        call setreg(reg, getline('.') . tmp . "\n")
        call setpos(".", [bufnr(), line("."), 1, 1])
        undojoin | call deletebufline(bufname(), line('.'))
    else
        call setreg(reg, getline('.') . "\n")
        call setpos(".", [bufnr(), line("."), 1, 1])
        call deletebufline(bufname(), line('.'))
    endif
  else
    let column = col(".") - 1
    let keep = getline('.')[:column - 1]
    let del = getline('.')[column:]
    call setreg(reg, del)
    call setline(".", keep)
  endif
  let g:append_tick = b:changedtick
endfunction