d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix redraw issue with do-save

This commit is contained in:
~d6 2022-04-09 00:44:14 -04:00
parent 0050d20370
commit 1b9aeeccc2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
femto.tal
View File

@ -716,7 +716,7 @@
STH2kr .File/length DEO2 STH2kr .File/length DEO2
;data .File/write DEO2 ;data .File/write DEO2
.File/success DEI2 STH2r EQU2 ( ok? ) ,&ok JCN .File/success DEI2 STH2r EQU2 ,&ok JCN
;messages/save-failed ,&finish JMP ;messages/save-failed ,&finish JMP
&ok &ok
#00 .state/modified STZ #00 .state/modified STZ
@ -725,6 +725,7 @@
&finish &finish
;tmp/data ;send-message JSR2 ;tmp/data ;send-message JSR2
.state/quitting LDZ ;quit-now JCN2 .state/quitting LDZ ;quit-now JCN2
#03 .state/redraw STZ ( FIXME: why do we have to do this? )
;return JMP2 ;return JMP2
( begin a search, prompting for a search string ) ( begin a search, prompting for a search string )