[tyndur-devel] [PATCH 2/2] kedit: Fix fuer ueberschuessige Leerzeichen

[Kevin Wolf <kevin@xxxxxxxxxx>]

! kedit: Wenn man auf dem letzten Zeichen einer Zeile (oder dahinter)
  was eintippt, hat kedit ein Leerzeichen zuviel eingefuegt
---
 src/modules/pas/kedit/kedit.pas |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/modules/pas/kedit/kedit.pas b/src/modules/pas/kedit/kedit.pas
index 71a5fcd..7e3af25 100644
--- a/src/modules/pas/kedit/kedit.pas
+++ b/src/modules/pas/kedit/kedit.pas
@@ -178,7 +178,8 @@ procedure Edit;
                         Beep;
                     end else begin
                         if Length(text^[cursY])<cursX then begin
-                            text^[cursY] := text^[cursY] + Space(cursX-Length(text^[cursY]));
+                            text^[cursY] := text^[cursY] +
+                                Space(cursX - Length(text^[cursY]) - 1);
                         end;
 
                         Insert(key,text^[cursY],cursX);
-- 
1.6.0.2