From 1b9aeeccc241a0a7955129002e61304882708385 Mon Sep 17 00:00:00 2001
From: d6 <d_m@plastic-idolatry.com>
Date: Sat, 9 Apr 2022 00:44:14 -0400
Subject: [PATCH] fix redraw issue with do-save

---
 femto.tal | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/femto.tal b/femto.tal
index b2096a4..ff80c3a 100644
--- a/femto.tal
+++ b/femto.tal
@@ -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 )