Fixed bug where data lost upon save file failure when quit/new/open selected

1 files changed, 9 insertions, 3 deletions

diff --git a/src/adapad.adb b/src/adapad.adb
index 20d5ba4..f7561dc 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -94,7 +94,9 @@ function AdaPad return Integer is
     begin
         case Cancel_Save_Discard is
             when First => return;
-            when Second => Save_CB.Call (Item);
+            when Second =>
+                Save_CB.Call (Item);
+                if Changed then return; end if;
             when Third => null;
         end case;
         Filename := To_Unbounded_String (0);
@@ -116,7 +118,9 @@ function AdaPad return Integer is
     begin
         case Cancel_Save_Discard is
             when First => return;
-            when Second => Save_CB.Call (Item);
+            when Second =>
+                Save_CB.Call (Item);
+                if Changed then return; end if;
             when Third => null;
         end case;
         declare
@@ -140,7 +144,9 @@ function AdaPad return Integer is
     begin
         case Cancel_Save_Discard is
             when First => return;
-            when Second => Save_CB.Call (Item);
+            when Second =>
+                Save_CB.Call (Item);
+                if Changed then return; end if;
             when Third => null;
         end case;
         This.Editor.Hide;