unset wrapping flag when goto happens
This commit is contained in:
parent
6b733da6d1
commit
caf1e4dc02
1
term.tal
1
term.tal
|
@ -1025,6 +1025,7 @@
|
||||||
.cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r
|
.cur-wrap LDZ ?&skip clear-cursor down-or-scroll &skip JMP2r
|
||||||
|
|
||||||
@goto ( y* x* -> )
|
@goto ( y* x* -> )
|
||||||
|
#00 .cur-wrap STZ
|
||||||
clear-cursor
|
clear-cursor
|
||||||
.max-x LDZ2 min .cur-x STZ2
|
.max-x LDZ2 min .cur-x STZ2
|
||||||
.max-y LDZ2 min .cur-y STZ2
|
.max-y LDZ2 min .cur-y STZ2
|
||||||
|
|
Loading…
Reference in New Issue