izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 02:08:06 +11:00
Code Issues Releases Wiki Activity

VE: supress ed's output on E and X

Browse Source 
Most of the time, this output would be hidden by the next screen
update, except when editing the last line.
This commit is contained in:
Virgil Dupras 2020-06-28 07:04:08 -04:00
parent 101193a78c
commit 5052efb60f
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
blk/112
View File

@ -1,11 +1,12 @@
: icpy ( n -- copy n chars from cursor to IBUF ) : icpy ( n -- copy n chars from cursor to IBUF )
IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ; IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ;
: X ( n -- ) : _X ( n -- )
DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n ) DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n )
SWAP _rbufsz MOVE ( n ) SWAP _rbufsz MOVE ( n )
( get to next line - n ) ( get to next line - n )
DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a ) DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a )
SWAP 0 FILL BLK!! SWAP 0 FILL BLK!! ;
EDPOS @ 64 / _pln ; : X _X EDPOS @ 64 / _pln ;
: _E FBUF _blen _X ;
: E FBUF _blen X ; : E FBUF _blen X ;
: Y FBUF _blen icpy ; : Y FBUF _blen icpy ;

4
blk/128
View File

@ -5,8 +5,8 @@
: $I mode! 'I' EMIT IBUF 1 buftype _i contents mode! SPC ; : $I mode! 'I' EMIT IBUF 1 buftype _i contents mode! SPC ;
: $F mode! 'F' EMIT FBUF 2 buftype _F setpos mode! SPC ; : $F mode! 'F' EMIT FBUF 2 buftype _F setpos mode! SPC ;
: $Y Y ; : $Y Y ;
: $E E contents ; : $E _E contents ;
: $X acc@ X contents ; : $X acc@ _X contents ;
: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ; : $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
: $H EDPOS @ 0x3c0 AND pos! ; : $H EDPOS @ 0x3c0 AND pos! ;
: $L EDPOS @ 0x3f OR pos! ; : $L EDPOS @ 0x3f OR pos! ;