thac0/vim
1
0
Fork 0
forked from aniani/vim
Code Activity

patch 8.2.4881: "P" in Visual mode still changes some registers

Browse Source 
Problem:    "P" in Visual mode still changes some registers.
Solution:   Make "P" in Visual mode not change any register. (Shougo
            Matsushita, closes #10349)
This commit is contained in:
Shougo Matsushita
2022-05-06 11:45:09 +01:00
committed by Bram Moolenaar
parent 434725cc4c
commit 509142ab7a
6 changed files with 83 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
src/testdir/test_visual.vim
View File

@@ -1390,34 +1390,74 @@ func Test_visual_paste()
call assert_equal('x', @-)
call assert_equal('bazooxxf', getline(1))
if has('clipboard')
" v_P does not overwrite unnamed register.
call setline(1, ['xxxx'])
call setreg('"', 'foo')
call setreg('-', 'bar')
normal gg0vP
call assert_equal('foo', @")
call assert_equal('x', @-)
call assert_equal('fooxxx', getline(1))
normal $vP
call assert_equal('foo', @")
call assert_equal('x', @-)
call assert_equal('fooxxfoo', getline(1))
" Test with a different register as unnamed register.
call setline(2, ['baz'])
normal 2gg0"rD
call assert_equal('baz', @")
normal gg0vP
call assert_equal('baz', @")
call assert_equal('f', @-)
call assert_equal('bazooxxfoo', getline(1))
normal $vP
call assert_equal('baz', @")
call assert_equal('o', @-)
call assert_equal('bazooxxfobaz', getline(1))
endif
bwipe!
endfunc
func Test_visual_paste_clipboard()
CheckFeature clipboard_working
if has('gui')
" auto select feature breaks tests
set guioptions-=a
endif
" v_P does not overwrite unnamed register.
call setline(1, ['xxxx'])
call setreg('"', 'foo')
call setreg('-', 'bar')
normal gg0vP
call assert_equal('foo', @")
call assert_equal('bar', @-)
call assert_equal('fooxxx', getline(1))
normal $vP
call assert_equal('foo', @")
call assert_equal('bar', @-)
call assert_equal('fooxxfoo', getline(1))
" Test with a different register as unnamed register.
call setline(2, ['baz'])
normal 2gg0"rD
call assert_equal('baz', @")
normal gg0vP
call assert_equal('baz', @")
call assert_equal('bar', @-)
call assert_equal('bazooxxfoo', getline(1))
normal $vP
call assert_equal('baz', @")
call assert_equal('bar', @-)
call assert_equal('bazooxxfobaz', getline(1))
" Test for unnamed clipboard
set clipboard=unnamed
call setline(1, ['xxxx'])
call setreg('"', 'foo')
call setreg('-', 'bar')
call setreg('*', 'baz')
normal gg0vP
call assert_equal('foo', @")
call assert_equal('bar', @-)
call assert_equal('baz', @*)
call assert_equal('bazxxx', getline(1))
" Test for unnamedplus clipboard
if has('unnamedplus')
set clipboard=unnamedplus
call setline(1, ['xxxx'])
call setreg('"', 'foo')
call setreg('-', 'bar')
call setreg('+', 'baz')
normal gg0vP
call assert_equal('foo', @")
call assert_equal('bar', @-)
call assert_equal('baz', @+)
call assert_equal('bazxxx', getline(1))
endif
set clipboard&
if has('gui')
set guioptions&
endif
bwipe!
endfunc
" vim: shiftwidth=2 sts=2 expandtab