Mercurial > vim

view src/testdir/test8.in @ 8885:54a380c74547 v7.4.1729

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Apr 14 14:09:25 2016 +0200 patch 7.4.1729 Problem: The Perl interface cannot use 'print' operator for writing directly in standard IO. Solution: Add a minimal implementation of PerlIO Layer feature and try to use it for STDOUT/STDERR. (Damien)
author Christian Brabandt <cb@256bit.org>
date Thu, 14 Apr 2016 14:15:05 +0200
parents 1899acc5aebd
children
line wrap: on
line source

Test for BufWritePre autocommand that deletes or unloads the buffer.
Test for BufUnload autocommand that unloads all other buffers.

STARTTEST
:so small.vim
:au BufWritePre Xxx1 bunload
:au BufWritePre Xxx2 bwipe
/^start of
A1:.,/end of/w! Xxx1  " write test file Xxx1
$r2:.,/end of/w! Xxx2   " write test file Xxx2
:e! Xxx2                " edit Xxx2
:bdel test8.in		" delete this file from the buffer list
:e Xxx1                 " edit Xxx1
:w                      " write it, will unload it and give an error msg
:w! test.out            " Write contents of this file
:e! Xxx2                " start editing Xxx2
:bwipe test.out         " remove test.out from the buffer list
:w                      " write it, will delete the buffer and give an error msg
:w >>test.out           " Append contents of this file
:au! BufWritePre
:func CloseAll()
  let i = 0
  while i <= bufnr('$')
    if i != bufnr('%') && bufloaded(i)
      exe  i . "bunload"
    endif
    let i += 1
  endwhile
endfunc
:func WriteToOut()
  edit! test.out
  $put ='VimLeave done'
  write
endfunc
:set viminfo='100,nviminfo
:au BufUnload * call CloseAll()
:au VimLeave * call WriteToOut()
:e small.vim
:sp mbyte.vim
:q
:qa!
ENDTEST

start of Xxx
	test
end of Xxx