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

View File

@ -716,7 +716,7 @@
STH2kr .File/length 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
&ok
#00 .state/modified STZ
@ -725,6 +725,7 @@
&finish
;tmp/data ;send-message JSR2
.state/quitting LDZ ;quit-now JCN2
#03 .state/redraw STZ ( FIXME: why do we have to do this? )
;return JMP2
( begin a search, prompting for a search string )