VE: Add X

blk/109

@@ -1,9 +1,9 @@
-: E
-    FBUF _blen EDPOS @ _cpos 2DUP + ( l a1 a1+l )
+: X ( len -- , delete len chars after curpos )
+    EDPOS @ _cpos 2DUP + ( l a1 a1+l )
     SWAP _rbufsz MOVE ( l )
     ( get to next line - l )
     DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( l a )
     SWAP 0 FILL
-    EDPOS @ 64 / _pln
-;
+    EDPOS @ 64 / _pln ;
+: E FBUF _blen X ;
 

blk/122

@@ -5,6 +5,8 @@
 'I', 'F' and 'E' invoke the corresponding command from the
 Block Editor (B100). Refer to documentation there.
 
+'X' deletes "modifier" characters following cursor.
+
 'R' goes into replace mode at current cursor position.
 Following keystrokes replace current character and advance
 cursor. Press return to return to normal mode.

blk/127

@@ -9,6 +9,7 @@
 : $I mode! 'I' EMIT 3 1 AT-XY _I contents mode! SPC ;
 : $F mode! 'F' EMIT 3 2 AT-XY _F setpos mode! SPC ;
 : $E E contents ;
+: $X acc@ X contents ;
 : $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
 : $H 0acc EDPOS @ 0x3c0 AND EDPOS ! ;
 : $L 0acc EDPOS @ 0x3f OR EDPOS ! ;