From 5052efb60f19a190e64b40f01201b7cac58e8fae Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 28 Jun 2020 07:04:08 -0400
Subject: [PATCH] VE: supress ed's output on E and X

Most of the time, this output would be hidden by the next screen
update, except when editing the last line.
---
 blk/112 | 7 ++++---
 blk/128 | 4 ++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/blk/112 b/blk/112
index 3d71840..0fe482e 100644
--- a/blk/112
+++ b/blk/112
@@ -1,11 +1,12 @@
 : icpy ( n -- copy n chars from cursor to IBUF )
     IBUF _zbuf EDPOS @ _cpos IBUF ( n a buf ) ROT MOVE ;
-: X ( n -- )
+: _X ( n -- )
     DUP icpy EDPOS @ _cpos 2DUP + ( n a1 a1+n )
     SWAP _rbufsz MOVE ( n )
     ( get to next line - n )
     DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( n a )
-    SWAP 0 FILL BLK!!
-    EDPOS @ 64 / _pln ;
+    SWAP 0 FILL BLK!! ;
+: X _X EDPOS @ 64 / _pln ;
+: _E FBUF _blen _X ;
 : E FBUF _blen X ;
 : Y FBUF _blen icpy ;
diff --git a/blk/128 b/blk/128
index 08d7e99..efe06a9 100644
--- a/blk/128
+++ b/blk/128
@@ -5,8 +5,8 @@
 : $I mode! 'I' EMIT IBUF 1 buftype _i contents mode! SPC ;
 : $F mode! 'F' EMIT FBUF 2 buftype _F setpos mode! SPC ;
 : $Y Y ;
-: $E E contents ;
-: $X acc@ X contents ;
+: $E _E contents ;
+: $X acc@ _X contents ;
 : $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
 : $H EDPOS @ 0x3c0 AND pos! ;
 : $L EDPOS @ 0x3f OR pos! ;