summaryrefslogtreecommitdiff
path: root/filo.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-12-29 13:04:40 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2021-12-29 13:04:40 -0500
commitf3ebef8119973bcb906f2a597e041ef7d5afab0c (patch)
tree20b3d40564bcbb594b4a8a56d74113c302388d89 /filo.f90
parent6921c5c7332dc2c2ddf1dd2415901d138ec48600 (diff)
downloadfilo-f3ebef8119973bcb906f2a597e041ef7d5afab0c.tar.gz
filo-f3ebef8119973bcb906f2a597e041ef7d5afab0c.zip
Additional changes to debug 1-indexing. Cursor now appears on correct line. Strange behavior at line end insert.
Diffstat (limited to 'filo.f90')
-rw-r--r--filo.f904
1 files changed, 2 insertions, 2 deletions
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)