patch 8.1.1077: reg_executing() is reset by calling input()
Problem: reg_executing() is reset by calling input().
Solution: Implement a more generic way to save and restore reg_executing.
(Ozaki Kiichi, closes #4192)
diff --git a/src/testdir/test_functions.vim b/src/testdir/test_functions.vim
index d534999..63f477d 100644
--- a/src/testdir/test_functions.vim
+++ b/src/testdir/test_functions.vim
@@ -1150,20 +1150,38 @@
" getchar() command saves and restores reg_executing
map W :call TestFunc()<CR>
let @q = "W"
+ let g:typed = ''
+ let g:regs = []
func TestFunc() abort
- let g:reg1 = reg_executing()
+ let g:regs += [reg_executing()]
let g:typed = getchar(0)
- let g:reg2 = reg_executing()
+ let g:regs += [reg_executing()]
endfunc
call feedkeys("@qy", 'xt')
call assert_equal(char2nr("y"), g:typed)
- call assert_equal('q', g:reg1)
- call assert_equal('q', g:reg2)
+ call assert_equal(['q', 'q'], g:regs)
delfunc TestFunc
unmap W
unlet g:typed
- unlet g:reg1
- unlet g:reg2
+ unlet g:regs
+
+ " input() command saves and restores reg_executing
+ map W :call TestFunc()<CR>
+ let @q = "W"
+ let g:typed = ''
+ let g:regs = []
+ func TestFunc() abort
+ let g:regs += [reg_executing()]
+ let g:typed = input('?')
+ let g:regs += [reg_executing()]
+ endfunc
+ call feedkeys("@qy\<CR>", 'xt')
+ call assert_equal("y", g:typed)
+ call assert_equal(['q', 'q'], g:regs)
+ delfunc TestFunc
+ unmap W
+ unlet g:typed
+ unlet g:regs
bwipe!
delfunc s:save_reg_stat