Merge pull request #3868 from Shougo/vim-7.4.608

vim-patch:7.4.608, 7.4.612
This commit is contained in:
Justin M. Keyes 2015-12-26 17:27:40 +01:00
commit f4e3c13bcc
3 changed files with 24 additions and 13 deletions

View File

@ -2,12 +2,18 @@ Test for various eval features. vim: set ft=vim :
Note: system clipboard is saved, changed and restored. Note: system clipboard is saved, changed and restored.
clipboard contents
something else
STARTTEST STARTTEST
:so small.vim :so small.vim
:set noswapfile :set noswapfile
:lang C :lang C
:fun AppendRegContents(reg) :fun AppendRegContents(reg)
call append('$', printf('%s: type %s; value: %s (%s), expr: %s (%s)', a:reg, getregtype(a:reg), getreg(a:reg), string(getreg(a:reg, 0, 1)), getreg(a:reg, 1), string(getreg(a:reg, 1, 1)))) call AppendRegParts(a:reg, getregtype(a:reg), getreg(a:reg), string(getreg(a:reg, 0, 1)), getreg(a:reg, 1), string(getreg(a:reg, 1, 1)))
:endfun
:fun AppendRegParts(reg, type, cont, strcont, cont1, strcont1)
call append('$', printf('%s: type %s; value: %s (%s), expr: %s (%s)', a:reg, a:type, a:cont, a:strcont, a:cont1, a:strcont1))
endfun endfun
:command -nargs=? AR :call AppendRegContents(<q-args>) :command -nargs=? AR :call AppendRegContents(<q-args>)
:fun SetReg(...) :fun SetReg(...)
@ -121,18 +127,23 @@ call SetReg('/', ["abc/\n"])
call SetReg('=', ['"abc/"']) call SetReg('=', ['"abc/"'])
call SetReg('=', ["\"abc/\n\""]) call SetReg('=', ["\"abc/\n\""])
$put ='{{{1 System clipboard' $put ='{{{1 System clipboard'
if has('clipboard')
" Save and restore system clipboard. " Save and restore system clipboard.
" If no connection to X-Server is possible, test should succeed. " If no connection to X-Server is possible, test should succeed.
:let _clipreg = ['+', getreg('+'), getregtype('+')] let _clipreg = ['*', getreg('*'), getregtype('*')]
:let _clipopt = &cb let _clipopt = &cb
:let &cb='unnamedplus' let &cb='unnamed'
:1y 5y
:AR + AR *
:tabdo :windo :echo "hi" tabdo :windo :echo "hi"
:3y 6y
:AR + AR *
:let &cb=_clipopt let &cb=_clipopt
:call call('setreg', _clipreg) call call('setreg', _clipreg)
else
call AppendRegParts('*', 'V', "clipboard contents\n", "['clipboard contents']", "clipboard contents\n", "['clipboard contents']")
call AppendRegParts('*', 'V', "something else\n", "['something else']", "something else\n", "['something else']")
endif
$put ='{{{1 Errors' $put ='{{{1 Errors'
call ErrExe('call setreg()') call ErrExe('call setreg()')
call ErrExe('call setreg(1)') call ErrExe('call setreg(1)')

Binary file not shown.

View File

@ -381,11 +381,11 @@ static int included_patches[] = {
615, 615,
// 614, // 614,
// 613, // 613,
// 612, 612,
// 611 NA // 611 NA
// 610 NA // 610 NA
609, 609,
// 608, 608,
// 607, // 607,
606, 606,
// 605, // 605,