fix: saving of ed2 with splitted tab, editing in ed1 - no circle-mark

app/formframe.pas

@@ -1752,22 +1752,22 @@ procedure TEditorFrame.EditorOnChangeDetailed(Sender: TObject;
   EdOther: TATSynEdit;
 begin
   if FBusyOnChangeDetailed then exit;
+  FBusyOnChangeDetailed:= true;
   if Splitted and EditorsLinked then
   begin
     if Sender=Ed1 then
       EdOther:= Ed2
     else
       EdOther:= Ed1;
-    FBusyOnChangeDetailed:= true;
     EdOther.UpdateCaretsAndMarkersOnEditing(0, APos, APosEnd, AShift, APosAfter);
     EdOther.DoGotoCaret(
       TATCaretEdge.Top,
       false,
       false,
       false
       );
-    FBusyOnChangeDetailed:= false;
   end;
+  FBusyOnChangeDetailed:= false;
 end;
 
 procedure TEditorFrame.EditorOnChangeModified(Sender: TObject);
@@ -3264,6 +3264,21 @@ function TEditorFrame.DoFileSave_Ex(Ed: TATSynEdit; ASaveAs: boolean): boolean;
   else
     FileProps[EdIndex].Init(SFileName);
 
+  {
+  fixes issue:
+  - open new tab
+  - save to file
+  - split it to ed1/ed2
+  - edit in ed2; then edit in ed1 -> circle-mark shows
+  - focus ed2, save to file -> circle-mark hides
+  - focus ed1, edit -> circle-mark don't show (ed1 don't fire OnChangeModified)
+  }
+  if Result and EditorsLinked then
+  begin
+    Ed1.Modified:= false;
+    Ed2.Modified:= false;
+  end;
+
   NotifEnabled:= bNotifWasEnabled or bNameChanged;
 end;