Mercurial > vim
view src/testdir/test_listlbr_utf8.in @ 7239:89c6f7c6704a v7.4.928
commit https://github.com/vim/vim/commit/5d8afebb5bf7fb1e8ce06062451dc6a1f9a53ac0
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Nov 19 19:55:16 2015 +0100
patch 7.4.928
Problem: A clientserver message interrupts handling keys of a mapping.
Solution: Have mch_inchar() send control back to WaitForChar when it is
interrupted by server message. (James Kolb)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 19 Nov 2015 20:00:05 +0100 |
parents | 8ebcd7f1ff5b |
children | 6fcadba9ec7a |
line wrap: on
line source
Test for linebreak and list option in utf-8 mode STARTTEST :so small.vim :if !exists("+linebreak") || !has("conceal") | e! test.ok | w! test.out | qa! | endif :so mbyte.vim :if &enc !=? 'utf-8'|:e! test.ok|:w! test.out|qa!|endif :10new|:vsp|:vert resize 20 :put =\"\tabcdef hijklmn\tpqrstuvwxyz\u00a01060ABCDEFGHIJKLMNOP \" :norm! zt :set ts=4 sw=4 sts=4 linebreak sbr=+ wrap :fu! ScreenChar(width, lines) : let c='' : for j in range(1,a:lines) : for i in range(1,a:width) : let c.=nr2char(screenchar(j, i)) : endfor : let c.="\n" : endfor : return c :endfu :fu! DoRecordScreen() : wincmd l : $put =printf(\"\n%s\", g:test) : $put =g:line : wincmd p :endfu :let g:test ="Test 1: set linebreak + set list + fancy listchars" :exe "set linebreak list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6" :redraw! :let line=ScreenChar(winwidth(0),4) :call DoRecordScreen() :" :let g:test ="Test 2: set nolinebreak list" :set list nolinebreak :redraw! :let line=ScreenChar(winwidth(0),4) :call DoRecordScreen() :" :let g:test ="Test 3: set linebreak nolist" :$put =\"\t*mask = nil;\" :$ :norm! zt :set nolist linebreak :redraw! :let line=ScreenChar(winwidth(0),4) :call DoRecordScreen() :let g:test ="Test 4: set linebreak list listchars and concealing" :let c_defines=['#define ABCDE 1','#define ABCDEF 1','#define ABCDEFG 1','#define ABCDEFGH 1', '#define MSG_MODE_FILE 1','#define MSG_MODE_CONSOLE 2','#define MSG_MODE_FILE_AND_CONSOLE 3','#define MSG_MODE_FILE_THEN_CONSOLE 4'] :call append('$', c_defines) :vert resize 40 :$-7 :norm! zt :set list linebreak listchars=tab:>- cole=1 :syn match Conceal conceal cchar=>'AB\|MSG_MODE' :redraw! :let line=ScreenChar(winwidth(0),7) :call DoRecordScreen() :let g:test ="Test 5: set linebreak list listchars and concealing part2" :let c_defines=['bbeeeeee ; some text'] :call append('$', c_defines) :$ :norm! zt :set nowrap ts=2 list linebreak listchars=tab:>- cole=2 concealcursor=n :syn clear :syn match meaning /;\s*\zs.*/ :syn match hasword /^\x\{8}/ contains=word :syn match word /\<\x\{8}\>/ contains=beginword,endword contained :syn match beginword /\<\x\x/ contained conceal :syn match endword /\x\{6}\>/ contained :hi meaning guibg=blue :hi beginword guibg=green :hi endword guibg=red :redraw! :let line=ScreenChar(winwidth(0),1) :call DoRecordScreen() :let g:test ="Test 6: Screenattributes for comment" :$put =g:test :call append('$', ' /* and some more */') :exe "set ft=c ts=7 linebreak list listchars=nbsp:\u2423,tab:\u2595\u2014,trail:\u02d1,eol:\ub6" :syntax on :hi SpecialKey term=underline ctermfg=red guifg=red :let attr=[] :nnoremap <expr> GG ":let attr += ['".screenattr(screenrow(),screencol())."']\n" :$ :norm! zt0 GGlGGlGGlGGlGGlGGlGGlGGlGGlGGl :call append('$', ['ScreenAttributes for test6:']) :if attr[0] != attr[1] && attr[1] != attr[3] && attr[3] != attr[5] : call append('$', "Attribut 0 and 1 and 3 and 5 are different!") :else : call append('$', "Not all attributes are different") :endif :set cpo&vim linebreak selection=exclusive :let g:test ="Test 8: set linebreak with visual block mode and v_b_A and selection=exclusive and multibyte char" :$put =g:test Golong line: 40afoobar aTARGETÃ' at end :exe "norm! $3B\<C-v>eAx\<Esc>" :%w! test.out :qa! ENDTEST dummy text