From 507aec47d58e78458c8a6a2f5e5378a029160711 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 29 Dec 2021 20:57:48 -0500 Subject: Fixed appending new characters at end of line. --- filo.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/filo.f90 b/filo.f90 index c358aa6..96e566e 100644 --- a/filo.f90 +++ b/filo.f90 @@ -221,7 +221,7 @@ contains if(at > er%size()) then padlen = at - er%size() - allocate(ctmp(er%size() + padlen + 1)) + allocate(ctmp(er%size() + padlen)) ctmp(1:er%size()) = er%chars if(padlen > 0) then ctmp(er%size()+1:er%size()+padlen) = ' ' @@ -237,7 +237,6 @@ contains ctmp(at) = c call move_alloc(ctmp, er%chars) - E%dirty = E%dirty + 1 end subroutine editorRowInsertChar -- cgit v1.2.3