From f3ebef8119973bcb906f2a597e041ef7d5afab0c Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 29 Dec 2021 13:04:40 -0500
Subject: Additional changes to debug 1-indexing.  Cursor now appears on
 correct line.  Strange behavior at line end insert.

---
 filo.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'filo.f90')

diff --git a/filo.f90 b/filo.f90
index 3918d8e..c358aa6 100644
--- a/filo.f90
+++ b/filo.f90
@@ -250,8 +250,7 @@ contains
         character, dimension(:), intent(in)::arr
     
         character, dimension(:), allocatable::ctmp
-        integer::i
-    
+
         allocate(ctmp(er%size()+size(arr)))
         ctmp(1:er%size()) = er%chars
         ctmp(er%size()+1:er%size()+size(arr)) = arr
@@ -415,6 +414,7 @@ contains
                 deltax = E%screencols - E%cx + 1
                 E%cx = E%cx - deltax
                 E%coloff = E%coloff + deltax
+                Print *, "new offset: ", E%coloff, "->", E%screencols, E%cx
             end if
         else
             call editorRowDelChar(E%row(filerow), filecol - 1)
-- 
cgit v1.2.3