[tyndur-devel] [PATCH 2/3] kedit: Fix fuer Loeschen von Tabs

[Kevin Wolf <kevin@xxxxxxxxxx>]

! kedit: Beim Backspace auf die naechste Tabposition nach links gehen
  ist schonmal ein guter Ansatz. Jetzt auch noch die Leerzeichen
  loeschen dabei.
! kedit: Das Loeschen eines Tabs aendert das Dokument
---
 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 7e3af25..420cc9e 100644
--- a/src/modules/pas/kedit/kedit.pas
+++ b/src/modules/pas/kedit/kedit.pas
@@ -110,8 +110,9 @@ procedure Edit;
                             if text^[cursY] = '' then begin
                                 DeleteLine(@state, redrawEditor);
                             end else if HasLeadingSpaces(text^[cursY], cursX - 1) then begin
-                                Delete(text^[cursY], (cursX - 1) and not 7, (cursX - 1) and 7);
+                                Delete(text^[cursY], 1 + ((cursX - 2) and not 7), 1 + ((cursX - 2) and 7));
                                 Dec(cursX, 1 + ((cursX - 2) and 7));
+                                changed:=true;
                             end else begin
                                 Delete(text^[cursY], cursX - 1, 1);
                                 Dec(cursX);
-- 
1.6.0.2