1 files changed, 7 insertions, 30 deletions
diff --git a/src/change_vectors.adb b/src/change_vectors.adb
index 13be51f..71f5acf 100644
--- a/src/change_vectors.adb
+++ b/src/change_vectors.adb
@@ -2,17 +2,11 @@
 
 with
 
-    FLTK.Text_Buffers,
-    Ada.Strings.Unbounded;
-
-use
-
-    Ada.Strings.Unbounded;
+    FLTK.Text_Buffers;
 
 use type
 
-    FLTK.Text_Buffers.Modification,
-    FLTK.Text_Buffers.Position;
+    FLTK.Text_Buffers.Modification;
 
 
 package body Change_Vectors is
@@ -30,8 +24,6 @@ package body Change_Vectors is
     end Continues_Insert;
 
 
-
-
     function Continues_Delete
            (Orig, Cont : in Change)
         return Boolean is
@@ -43,8 +35,6 @@ package body Change_Vectors is
     end Continues_Delete;
 
 
-
-
     function Continues_Backspace
            (Orig, Cont : in Change)
         return Boolean is
@@ -62,20 +52,20 @@ package body Change_Vectors is
            (This : in out Change_Vector;
             Item : in     Change)
     is
-
-        procedure App (Ch : in out Change) is
+        procedure App
+               (Ch : in out Change) is
         begin
             Ch.Length := Ch.Length + 1;
             Append (Ch.Text, Item.Text);
         end App;
 
-        procedure Pre (Ch : in out Change) is
+        procedure Pre
+               (Ch : in out Change) is
         begin
             Ch.Length := Ch.Length + 1;
             Ch.Text := Item.Text & Ch.Text;
             Ch.Place := Ch.Place - 1;
         end Pre;
-
     begin
         if Item.Action = FLTK.Text_Buffers.Insert then
             if  This.Near > 0 and then
@@ -108,8 +98,6 @@ package body Change_Vectors is
     end Push;
 
 
-
-
     function Pop
            (This : in out Change_Vector)
         return Boolean is
@@ -123,8 +111,6 @@ package body Change_Vectors is
     end Pop;
 
 
-
-
     procedure Pop
            (This : in out Change_Vector) is
     begin
@@ -134,8 +120,6 @@ package body Change_Vectors is
     end Pop;
 
 
-
-
     function Peek
            (This : in     Change_Vector;
             Item :    out Change)
@@ -150,8 +134,6 @@ package body Change_Vectors is
     end Peek;
 
 
-
-
     procedure Peek
            (This : in     Change_Vector;
             Item :    out Change) is
@@ -162,8 +144,6 @@ package body Change_Vectors is
     end Peek;
 
 
-
-
     function Re_Push
            (This : in out Change_Vector)
         return Boolean is
@@ -177,8 +157,6 @@ package body Change_Vectors is
     end Re_Push;
 
 
-
-
     procedure Re_Push
            (This : in out Change_Vector) is
     begin
@@ -198,8 +176,6 @@ package body Change_Vectors is
     end At_Start;
 
 
-
-
     function At_End
            (This : in Change_Vector)
         return Boolean is
@@ -210,3 +186,4 @@ package body Change_Vectors is
 
 end Change_Vectors;
 
+