fix display bug when searching
This commit is contained in:
parent
1dddbf6cf9
commit
d278dcf58e
10
femto.tal
10
femto.tal
|
@ -1443,7 +1443,13 @@
|
|||
&no POP2 POP2 #00 JMP2r
|
||||
|
||||
@jump-to-pos ( s* -> )
|
||||
;pos-to-row-col JSR2 SWP2 ;move-to-coord JMP2
|
||||
;pos-to-logical-row-col JSR2 SWP2 ;move-to-coord JMP2
|
||||
|
||||
@pos-to-display-row-col ( s* -> row* col* )
|
||||
.config/tab-width LDZ2 ;pos-to-row-col/tab-width STA2 !pos-to-row-col
|
||||
|
||||
@pos-to-logical-row-col ( s* -> row* col* )
|
||||
#0001 ;pos-to-row-col/tab-width STA2 ( fall-through )
|
||||
|
||||
@pos-to-row-col ( s* -> row* col* )
|
||||
#0000 ,&row STR2
|
||||
|
@ -1462,7 +1468,7 @@
|
|||
,&row LDR2 INC2 ,&row STR2
|
||||
INC2 ,&loop JMP
|
||||
&tab
|
||||
.config/tab-width LDZ2 ,&inc JMP
|
||||
LIT2 [ &tab-width $2 ] ,&inc JMP
|
||||
&done
|
||||
POP2 POP2
|
||||
,&row LDR2 ,&col LDR2 JMP2r
|
||||
|
|
Loading…
Reference in New Issue