Only advance on char view
1 files changed, 4 insertions(+), 4 deletions(-) M src/dexe.tal
M src/dexe.tal => src/dexe.tal +4 -4
@@ 437,11 437,11 @@ JMP2r &loop STH2k [ LIT &c $1 ] STH2r STA INC2 GTH2k ,&loop JCN ( advance selection when 1 cell ) POP2 .selection/from LDZ2 SUB2 NIP #01 GTH ,&no-advance JCN ;move-right JSR2 &no-advance #01 .state/changed STZ ( advance selection when 1 cell ) POP2 .selection/from LDZ2 SUB2 NIP #01 EQU .selection/mode LDZ AND ;move-right JCN2 ;redraw ( .. ) JMP2